<script>on mouseUpput the seconds into stwait 8 ticksif the mouseclick and loc of me = loc of btn 1thencurseurexit mouseupend ifif (style of btn jouer = transparent and style of btn créer = transparent) ¬or ("interrompre" is in menuitem 1 of menu 2 and last word of short name of btn id 294 > 3) thenelse info36 the number of meend mouseUp</script>
</part>
<part>
<id>28</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>75</left>
<top>32</top>
<right>120</right>
<bottom>77</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Symbol</font>
<textSize>50</textSize>
<textStyle>bold</textStyle>
<name></name>
<script>on mouseUpput the seconds into stwait 8 ticksif the mouseclick and loc of me = loc of btn 1thencurseurexit mouseupend ifif (style of btn jouer = transparent and style of btn créer = transparent) ¬or ("interrompre" is in menuitem 1 of menu 2 and last word of short name of btn id 294 > 3) thenelse info36 the number of meend mouseUp</script>
</part>
<part>
<id>95</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>121</left>
<top>32</top>
<right>166</right>
<bottom>77</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Symbol</font>
<textSize>50</textSize>
<textStyle>bold</textStyle>
<name></name>
<script>on mouseUpput the seconds into stwait 8 ticksif the mouseclick and loc of me = loc of btn 1thencurseurexit mouseupend ifif (style of btn jouer = transparent and style of btn créer = transparent) ¬or ("interrompre" is in menuitem 1 of menu 2 and last word of short name of btn id 294 > 3) thenelse info36 the number of meend mouseUp</script>
</part>
<part>
<id>96</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>167</left>
<top>32</top>
<right>212</right>
<bottom>77</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Symbol</font>
<textSize>50</textSize>
<textStyle>bold</textStyle>
<name></name>
<script>on mouseUpput the seconds into stwait 8 ticksif the mouseclick and loc of me = loc of btn 1thencurseurexit mouseupend ifif (style of btn jouer = transparent and style of btn créer = transparent) ¬or ("interrompre" is in menuitem 1 of menu 2 and last word of short name of btn id 294 > 3) thenelse info36 the number of meend mouseUp</script>
</part>
<part>
<id>97</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>213</left>
<top>32</top>
<right>258</right>
<bottom>77</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Symbol</font>
<textSize>50</textSize>
<textStyle>bold</textStyle>
<name></name>
<script>on mouseUpput the seconds into stwait 8 ticksif the mouseclick and loc of me = loc of btn 1thencurseurexit mouseupend ifif (style of btn jouer = transparent and style of btn créer = transparent) ¬or ("interrompre" is in menuitem 1 of menu 2 and last word of short name of btn id 294 > 3) thenelse info36 the number of meend mouseUp</script>
</part>
<part>
<id>98</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>259</left>
<top>32</top>
<right>304</right>
<bottom>77</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Symbol</font>
<textSize>50</textSize>
<textStyle>bold</textStyle>
<name></name>
<script>on mouseUpput the seconds into stwait 8 ticksif the mouseclick and loc of me = loc of btn 1thencurseurexit mouseupend ifif (style of btn jouer = transparent and style of btn créer = transparent) ¬or ("interrompre" is in menuitem 1 of menu 2 and last word of short name of btn id 294 > 3) thenelse info36 the number of meend mouseUp</script>
</part>
<part>
<id>99</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>305</left>
<top>32</top>
<right>350</right>
<bottom>77</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Symbol</font>
<textSize>50</textSize>
<textStyle>bold</textStyle>
<name></name>
<script>on mouseUpput the seconds into stwait 8 ticksif the mouseclick and loc of me = loc of btn 1thencurseurexit mouseupend ifif (style of btn jouer = transparent and style of btn créer = transparent) ¬or ("interrompre" is in menuitem 1 of menu 2 and last word of short name of btn id 294 > 3) thenelse info36 the number of meend mouseUp</script>
</part>
<part>
<id>100</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>29</left>
<top>78</top>
<right>74</right>
<bottom>123</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Symbol</font>
<textSize>50</textSize>
<textStyle>bold</textStyle>
<name></name>
<script>on mouseUpput the seconds into stwait 8 ticksif the mouseclick and loc of me = loc of btn 1thencurseurexit mouseupend ifif (style of btn jouer = transparent and style of btn créer = transparent) ¬or ("interrompre" is in menuitem 1 of menu 2 and last word of short name of btn id 294 > 3) thenelse info36 the number of meend mouseUp</script>
</part>
<part>
<id>101</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>75</left>
<top>78</top>
<right>120</right>
<bottom>123</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Symbol</font>
<textSize>50</textSize>
<textStyle>bold</textStyle>
<name></name>
<script>on mouseUpput the seconds into stwait 8 ticksif the mouseclick and loc of me = loc of btn 1thencurseurexit mouseupend ifif (style of btn jouer = transparent and style of btn créer = transparent) ¬or ("interrompre" is in menuitem 1 of menu 2 and last word of short name of btn id 294 > 3) thenelse info36 the number of meend mouseUp</script>
</part>
<part>
<id>102</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>121</left>
<top>78</top>
<right>166</right>
<bottom>123</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Symbol</font>
<textSize>50</textSize>
<textStyle>bold</textStyle>
<name></name>
<script>on mouseUpput the seconds into stwait 8 ticksif the mouseclick and loc of me = loc of btn 1thencurseurexit mouseupend ifif (style of btn jouer = transparent and style of btn créer = transparent) ¬or ("interrompre" is in menuitem 1 of menu 2 and last word of short name of btn id 294 > 3) thenelse info36 the number of meend mouseUp</script>
</part>
<part>
<id>103</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>167</left>
<top>78</top>
<right>212</right>
<bottom>123</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Symbol</font>
<textSize>50</textSize>
<textStyle>bold</textStyle>
<name></name>
<script>on mouseUpput the seconds into stwait 8 ticksif the mouseclick and loc of me = loc of btn 1thencurseurexit mouseupend ifif (style of btn jouer = transparent and style of btn créer = transparent) ¬or ("interrompre" is in menuitem 1 of menu 2 and last word of short name of btn id 294 > 3) thenelse info36 the number of meend mouseUp</script>
</part>
<part>
<id>104</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>213</left>
<top>78</top>
<right>258</right>
<bottom>123</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Symbol</font>
<textSize>50</textSize>
<textStyle>bold</textStyle>
<name></name>
<script>on mouseUpput the seconds into stwait 8 ticksif the mouseclick and loc of me = loc of btn 1thencurseurexit mouseupend ifif (style of btn jouer = transparent and style of btn créer = transparent) ¬or ("interrompre" is in menuitem 1 of menu 2 and last word of short name of btn id 294 > 3) thenelse info36 the number of meend mouseUp</script>
</part>
<part>
<id>105</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>259</left>
<top>78</top>
<right>304</right>
<bottom>123</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Symbol</font>
<textSize>50</textSize>
<textStyle>bold</textStyle>
<name></name>
<script>on mouseUpput the seconds into stwait 8 ticksif the mouseclick and loc of me = loc of btn 1thencurseurexit mouseupend ifif (style of btn jouer = transparent and style of btn créer = transparent) ¬or ("interrompre" is in menuitem 1 of menu 2 and last word of short name of btn id 294 > 3) thenelse info36 the number of meend mouseUp</script>
</part>
<part>
<id>106</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>305</left>
<top>78</top>
<right>350</right>
<bottom>123</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Symbol</font>
<textSize>50</textSize>
<textStyle>bold</textStyle>
<name></name>
<script>on mouseUpput the seconds into stwait 8 ticksif the mouseclick and loc of me = loc of btn 1thencurseurexit mouseupend ifif (style of btn jouer = transparent and style of btn créer = transparent) ¬or ("interrompre" is in menuitem 1 of menu 2 and last word of short name of btn id 294 > 3) thenelse info36 the number of meend mouseUp</script>
</part>
<part>
<id>107</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>29</left>
<top>124</top>
<right>74</right>
<bottom>169</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Symbol</font>
<textSize>50</textSize>
<textStyle>bold</textStyle>
<name></name>
<script>on mouseUpput the seconds into stwait 8 ticksif the mouseclick and loc of me = loc of btn 1thencurseurexit mouseupend ifif (style of btn jouer = transparent and style of btn créer = transparent) ¬or ("interrompre" is in menuitem 1 of menu 2 and last word of short name of btn id 294 > 3) thenelse info36 the number of meend mouseUp</script>
</part>
<part>
<id>108</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>75</left>
<top>124</top>
<right>120</right>
<bottom>169</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Symbol</font>
<textSize>50</textSize>
<textStyle>bold</textStyle>
<name></name>
<script>on mouseUpput the seconds into stwait 8 ticksif the mouseclick and loc of me = loc of btn 1thencurseurexit mouseupend ifif (style of btn jouer = transparent and style of btn créer = transparent) ¬or ("interrompre" is in menuitem 1 of menu 2 and last word of short name of btn id 294 > 3) thenelse info36 the number of meend mouseUp</script>
</part>
<part>
<id>109</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>121</left>
<top>124</top>
<right>166</right>
<bottom>169</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Symbol</font>
<textSize>50</textSize>
<textStyle>bold</textStyle>
<name></name>
<script>on mouseUpput the seconds into stwait 8 ticksif the mouseclick and loc of me = loc of btn 1thencurseurexit mouseupend ifif (style of btn jouer = transparent and style of btn créer = transparent) ¬or ("interrompre" is in menuitem 1 of menu 2 and last word of short name of btn id 294 > 3) thenelse info36 the number of meend mouseUp</script>
</part>
<part>
<id>110</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>167</left>
<top>124</top>
<right>212</right>
<bottom>169</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Symbol</font>
<textSize>50</textSize>
<textStyle>bold</textStyle>
<name></name>
<script>on mouseUpput the seconds into stwait 8 ticksif the mouseclick and loc of me = loc of btn 1thencurseurexit mouseupend ifif (style of btn jouer = transparent and style of btn créer = transparent) ¬or ("interrompre" is in menuitem 1 of menu 2 and last word of short name of btn id 294 > 3) thenelse info36 the number of meend mouseUp</script>
</part>
<part>
<id>111</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>213</left>
<top>124</top>
<right>258</right>
<bottom>169</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Symbol</font>
<textSize>50</textSize>
<textStyle>bold</textStyle>
<name></name>
<script>on mouseUpput the seconds into stwait 8 ticksif the mouseclick and loc of me = loc of btn 1thencurseurexit mouseupend ifif (style of btn jouer = transparent and style of btn créer = transparent) ¬or ("interrompre" is in menuitem 1 of menu 2 and last word of short name of btn id 294 > 3) thenelse info36 the number of meend mouseUp</script>
</part>
<part>
<id>112</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>259</left>
<top>124</top>
<right>304</right>
<bottom>169</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Symbol</font>
<textSize>50</textSize>
<textStyle>bold</textStyle>
<name></name>
<script>on mouseUpput the seconds into stwait 8 ticksif the mouseclick and loc of me = loc of btn 1thencurseurexit mouseupend ifif (style of btn jouer = transparent and style of btn créer = transparent) ¬or ("interrompre" is in menuitem 1 of menu 2 and last word of short name of btn id 294 > 3) thenelse info36 the number of meend mouseUp</script>
</part>
<part>
<id>113</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>305</left>
<top>124</top>
<right>350</right>
<bottom>169</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Symbol</font>
<textSize>50</textSize>
<textStyle>bold</textStyle>
<name></name>
<script>on mouseUpput the seconds into stwait 8 ticksif the mouseclick and loc of me = loc of btn 1thencurseurexit mouseupend ifif (style of btn jouer = transparent and style of btn créer = transparent) ¬or ("interrompre" is in menuitem 1 of menu 2 and last word of short name of btn id 294 > 3) thenelse info36 the number of meend mouseUp</script>
</part>
<part>
<id>114</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>29</left>
<top>170</top>
<right>74</right>
<bottom>215</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Symbol</font>
<textSize>50</textSize>
<textStyle>bold</textStyle>
<name></name>
<script>on mouseUpput the seconds into stwait 8 ticksif the mouseclick and loc of me = loc of btn 1thencurseurexit mouseupend ifif (style of btn jouer = transparent and style of btn créer = transparent) ¬or ("interrompre" is in menuitem 1 of menu 2 and last word of short name of btn id 294 > 3) thenelse info36 the number of meend mouseUp</script>
</part>
<part>
<id>115</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>75</left>
<top>170</top>
<right>120</right>
<bottom>215</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Symbol</font>
<textSize>50</textSize>
<textStyle>bold</textStyle>
<name></name>
<script>on mouseUpput the seconds into stwait 8 ticksif the mouseclick and loc of me = loc of btn 1thencurseurexit mouseupend ifif (style of btn jouer = transparent and style of btn créer = transparent) ¬or ("interrompre" is in menuitem 1 of menu 2 and last word of short name of btn id 294 > 3) thenelse info36 the number of meend mouseUp</script>
</part>
<part>
<id>116</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>121</left>
<top>170</top>
<right>166</right>
<bottom>215</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Symbol</font>
<textSize>50</textSize>
<textStyle>bold</textStyle>
<name></name>
<script>on mouseUpput the seconds into stwait 8 ticksif the mouseclick and loc of me = loc of btn 1thencurseurexit mouseupend ifif (style of btn jouer = transparent and style of btn créer = transparent) ¬or ("interrompre" is in menuitem 1 of menu 2 and last word of short name of btn id 294 > 3) thenelse info36 the number of meend mouseUp</script>
</part>
<part>
<id>117</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>167</left>
<top>170</top>
<right>212</right>
<bottom>215</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Symbol</font>
<textSize>50</textSize>
<textStyle>bold</textStyle>
<name></name>
<script>on mouseUpput the seconds into stwait 8 ticksif the mouseclick and loc of me = loc of btn 1thencurseurexit mouseupend ifif (style of btn jouer = transparent and style of btn créer = transparent) ¬or ("interrompre" is in menuitem 1 of menu 2 and last word of short name of btn id 294 > 3) thenelse info36 the number of meend mouseUp</script>
</part>
<part>
<id>118</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>213</left>
<top>170</top>
<right>258</right>
<bottom>215</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Symbol</font>
<textSize>50</textSize>
<textStyle>bold</textStyle>
<name></name>
<script>on mouseUpput the seconds into stwait 8 ticksif the mouseclick and loc of me = loc of btn 1thencurseurexit mouseupend ifif (style of btn jouer = transparent and style of btn créer = transparent) ¬or ("interrompre" is in menuitem 1 of menu 2 and last word of short name of btn id 294 > 3) thenelse info36 the number of meend mouseUp</script>
</part>
<part>
<id>119</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>259</left>
<top>170</top>
<right>304</right>
<bottom>215</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Symbol</font>
<textSize>50</textSize>
<textStyle>bold</textStyle>
<name></name>
<script>on mouseUpput the seconds into stwait 8 ticksif the mouseclick and loc of me = loc of btn 1thencurseurexit mouseupend ifif (style of btn jouer = transparent and style of btn créer = transparent) ¬or ("interrompre" is in menuitem 1 of menu 2 and last word of short name of btn id 294 > 3) thenelse info36 the number of meend mouseUp</script>
</part>
<part>
<id>120</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>305</left>
<top>170</top>
<right>350</right>
<bottom>215</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Symbol</font>
<textSize>50</textSize>
<textStyle>bold</textStyle>
<name></name>
<script>on mouseUpput the seconds into stwait 8 ticksif the mouseclick and loc of me = loc of btn 1thencurseurexit mouseupend ifif (style of btn jouer = transparent and style of btn créer = transparent) ¬or ("interrompre" is in menuitem 1 of menu 2 and last word of short name of btn id 294 > 3) thenelse info36 the number of meend mouseUp</script>
</part>
<part>
<id>121</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>29</left>
<top>216</top>
<right>74</right>
<bottom>261</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Symbol</font>
<textSize>50</textSize>
<textStyle>bold</textStyle>
<name></name>
<script>on mouseUpput the seconds into stwait 8 ticksif the mouseclick and loc of me = loc of btn 1thencurseurexit mouseupend ifif (style of btn jouer = transparent and style of btn créer = transparent) ¬or ("interrompre" is in menuitem 1 of menu 2 and last word of short name of btn id 294 > 3) thenelse info36 the number of meend mouseUp</script>
</part>
<part>
<id>122</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>75</left>
<top>216</top>
<right>120</right>
<bottom>261</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Symbol</font>
<textSize>50</textSize>
<textStyle>bold</textStyle>
<name></name>
<script>on mouseUpput the seconds into stwait 8 ticksif the mouseclick and loc of me = loc of btn 1thencurseurexit mouseupend ifif (style of btn jouer = transparent and style of btn créer = transparent) ¬or ("interrompre" is in menuitem 1 of menu 2 and last word of short name of btn id 294 > 3) thenelse info36 the number of meend mouseUp</script>
</part>
<part>
<id>123</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>121</left>
<top>216</top>
<right>166</right>
<bottom>261</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Symbol</font>
<textSize>50</textSize>
<textStyle>bold</textStyle>
<name></name>
<script>on mouseUpput the seconds into stwait 8 ticksif the mouseclick and loc of me = loc of btn 1thencurseurexit mouseupend ifif (style of btn jouer = transparent and style of btn créer = transparent) ¬or ("interrompre" is in menuitem 1 of menu 2 and last word of short name of btn id 294 > 3) thenelse info36 the number of meend mouseUp</script>
</part>
<part>
<id>124</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>167</left>
<top>216</top>
<right>212</right>
<bottom>261</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Symbol</font>
<textSize>50</textSize>
<textStyle>bold</textStyle>
<name></name>
<script>on mouseUpput the seconds into stwait 8 ticksif the mouseclick and loc of me = loc of btn 1thencurseurexit mouseupend ifif (style of btn jouer = transparent and style of btn créer = transparent) ¬or ("interrompre" is in menuitem 1 of menu 2 and last word of short name of btn id 294 > 3) thenelse info36 the number of meend mouseUp</script>
</part>
<part>
<id>125</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>213</left>
<top>216</top>
<right>258</right>
<bottom>261</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Symbol</font>
<textSize>50</textSize>
<textStyle>bold</textStyle>
<name></name>
<script>on mouseUpput the seconds into stwait 8 ticksif the mouseclick and loc of me = loc of btn 1thencurseurexit mouseupend ifif (style of btn jouer = transparent and style of btn créer = transparent) ¬or ("interrompre" is in menuitem 1 of menu 2 and last word of short name of btn id 294 > 3) thenelse info36 the number of meend mouseUp</script>
</part>
<part>
<id>126</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>259</left>
<top>216</top>
<right>304</right>
<bottom>261</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Symbol</font>
<textSize>50</textSize>
<textStyle>bold</textStyle>
<name></name>
<script>on mouseUpput the seconds into stwait 8 ticksif the mouseclick and loc of me = loc of btn 1thencurseurexit mouseupend ifif (style of btn jouer = transparent and style of btn créer = transparent) ¬or ("interrompre" is in menuitem 1 of menu 2 and last word of short name of btn id 294 > 3) thenelse info36 the number of meend mouseUp</script>
</part>
<part>
<id>127</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>305</left>
<top>216</top>
<right>350</right>
<bottom>261</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Symbol</font>
<textSize>50</textSize>
<textStyle>bold</textStyle>
<name></name>
<script>on mouseUpput the seconds into stwait 8 ticksif the mouseclick and loc of me = loc of btn 1thencurseurexit mouseupend ifif (style of btn jouer = transparent and style of btn créer = transparent) ¬or ("interrompre" is in menuitem 1 of menu 2 and last word of short name of btn id 294 > 3) thenelse info36 the number of meend mouseUp</script>
</part>
<part>
<id>128</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>29</left>
<top>262</top>
<right>74</right>
<bottom>307</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Symbol</font>
<textSize>50</textSize>
<textStyle>bold</textStyle>
<name></name>
<script>on mouseUpput the seconds into stwait 8 ticksif the mouseclick and loc of me = loc of btn 1thencurseurexit mouseupend ifif (style of btn jouer = transparent and style of btn créer = transparent) ¬or ("interrompre" is in menuitem 1 of menu 2 and last word of short name of btn id 294 > 3) thenelse info36 the number of meend mouseUp</script>
</part>
<part>
<id>129</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>75</left>
<top>262</top>
<right>120</right>
<bottom>307</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Symbol</font>
<textSize>50</textSize>
<textStyle>bold</textStyle>
<name></name>
<script>on mouseUpput the seconds into stwait 8 ticksif the mouseclick and loc of me = loc of btn 1thencurseurexit mouseupend ifif (style of btn jouer = transparent and style of btn créer = transparent) ¬or ("interrompre" is in menuitem 1 of menu 2 and last word of short name of btn id 294 > 3) thenelse info36 the number of meend mouseUp</script>
</part>
<part>
<id>130</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>121</left>
<top>262</top>
<right>166</right>
<bottom>307</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Symbol</font>
<textSize>50</textSize>
<textStyle>bold</textStyle>
<name></name>
<script>on mouseUpput the seconds into stwait 8 ticksif the mouseclick and loc of me = loc of btn 1thencurseurexit mouseupend ifif (style of btn jouer = transparent and style of btn créer = transparent) ¬or ("interrompre" is in menuitem 1 of menu 2 and last word of short name of btn id 294 > 3) thenelse info36 the number of meend mouseUp</script>
</part>
<part>
<id>131</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>167</left>
<top>262</top>
<right>212</right>
<bottom>307</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Symbol</font>
<textSize>50</textSize>
<textStyle>bold</textStyle>
<name></name>
<script>on mouseUpput the seconds into stwait 8 ticksif the mouseclick and loc of me = loc of btn 1thencurseurexit mouseupend ifif (style of btn jouer = transparent and style of btn créer = transparent) ¬or ("interrompre" is in menuitem 1 of menu 2 and last word of short name of btn id 294 > 3) thenelse info36 the number of meend mouseUp</script>
</part>
<part>
<id>132</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>213</left>
<top>262</top>
<right>258</right>
<bottom>307</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Symbol</font>
<textSize>50</textSize>
<textStyle>bold</textStyle>
<name></name>
<script>on mouseUpput the seconds into stwait 8 ticksif the mouseclick and loc of me = loc of btn 1thencurseurexit mouseupend ifif (style of btn jouer = transparent and style of btn créer = transparent) ¬or ("interrompre" is in menuitem 1 of menu 2 and last word of short name of btn id 294 > 3) thenelse info36 the number of meend mouseUp</script>
</part>
<part>
<id>133</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>259</left>
<top>262</top>
<right>304</right>
<bottom>307</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Symbol</font>
<textSize>50</textSize>
<textStyle>bold</textStyle>
<name></name>
<script>on mouseUpput the seconds into stwait 8 ticksif the mouseclick and loc of me = loc of btn 1thencurseurexit mouseupend ifif (style of btn jouer = transparent and style of btn créer = transparent) ¬or ("interrompre" is in menuitem 1 of menu 2 and last word of short name of btn id 294 > 3) thenelse info36 the number of meend mouseUp</script>
</part>
<part>
<id>134</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>305</left>
<top>262</top>
<right>350</right>
<bottom>307</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Symbol</font>
<textSize>50</textSize>
<textStyle>bold</textStyle>
<name></name>
<script>on mouseUpput the seconds into stwait 8 ticksif the mouseclick and loc of me = loc of btn 1thencurseurexit mouseupend ifif (style of btn jouer = transparent and style of btn créer = transparent) ¬or ("interrompre" is in menuitem 1 of menu 2 and last word of short name of btn id 294 > 3) thenelse info36 the number of meend mouseUp</script>
</part>
<part>
<id>135</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>29</left>
<top>308</top>
<right>74</right>
<bottom>353</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Symbol</font>
<textSize>50</textSize>
<textStyle>bold</textStyle>
<name></name>
<script>on mouseUpput the seconds into stwait 8 ticksif the mouseclick and loc of me = loc of btn 1thencurseurexit mouseupend ifif (style of btn jouer = transparent and style of btn créer = transparent) ¬or ("interrompre" is in menuitem 1 of menu 2 and last word of short name of btn id 294 > 3) thenelse info36 the number of meend mouseUp</script>
</part>
<part>
<id>136</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>75</left>
<top>308</top>
<right>120</right>
<bottom>353</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Symbol</font>
<textSize>50</textSize>
<textStyle>bold</textStyle>
<name></name>
<script>on mouseUpput the seconds into stwait 8 ticksif the mouseclick and loc of me = loc of btn 1thencurseurexit mouseupend ifif (style of btn jouer = transparent and style of btn créer = transparent) ¬or ("interrompre" is in menuitem 1 of menu 2 and last word of short name of btn id 294 > 3) thenelse info36 the number of meend mouseUp</script>
</part>
<part>
<id>137</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>121</left>
<top>308</top>
<right>166</right>
<bottom>353</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Symbol</font>
<textSize>50</textSize>
<textStyle>bold</textStyle>
<name></name>
<script>on mouseUpput the seconds into stwait 8 ticksif the mouseclick and loc of me = loc of btn 1thencurseurexit mouseupend ifif (style of btn jouer = transparent and style of btn créer = transparent) ¬or ("interrompre" is in menuitem 1 of menu 2 and last word of short name of btn id 294 > 3) thenelse info36 the number of meend mouseUp</script>
</part>
<part>
<id>138</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>167</left>
<top>308</top>
<right>212</right>
<bottom>353</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Symbol</font>
<textSize>50</textSize>
<textStyle>bold</textStyle>
<name></name>
<script>on mouseUpput the seconds into stwait 8 ticksif the mouseclick and loc of me = loc of btn 1thencurseurexit mouseupend ifif (style of btn jouer = transparent and style of btn créer = transparent) ¬or ("interrompre" is in menuitem 1 of menu 2 and last word of short name of btn id 294 > 3) thenelse info36 the number of meend mouseUp</script>
</part>
<part>
<id>139</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>213</left>
<top>308</top>
<right>258</right>
<bottom>353</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Symbol</font>
<textSize>50</textSize>
<textStyle>bold</textStyle>
<name></name>
<script>on mouseUpput the seconds into stwait 8 ticksif the mouseclick and loc of me = loc of btn 1thencurseurexit mouseupend ifif (style of btn jouer = transparent and style of btn créer = transparent) ¬or ("interrompre" is in menuitem 1 of menu 2 and last word of short name of btn id 294 > 3) thenelse info36 the number of meend mouseUp</script>
</part>
<part>
<id>140</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>259</left>
<top>308</top>
<right>304</right>
<bottom>353</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Symbol</font>
<textSize>50</textSize>
<textStyle>bold</textStyle>
<name></name>
<script>on mouseUpput the seconds into stwait 8 ticksif the mouseclick and loc of me = loc of btn 1thencurseurexit mouseupend ifif (style of btn jouer = transparent and style of btn créer = transparent) ¬or ("interrompre" is in menuitem 1 of menu 2 and last word of short name of btn id 294 > 3) thenelse info36 the number of meend mouseUp</script>
</part>
<part>
<id>141</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>305</left>
<top>308</top>
<right>350</right>
<bottom>353</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Symbol</font>
<textSize>50</textSize>
<textStyle>bold</textStyle>
<name></name>
<script>on mouseUpput the seconds into stwait 8 ticksif the mouseclick and loc of me = loc of btn 1thencurseurexit mouseupend ifif (style of btn jouer = transparent and style of btn créer = transparent) ¬or ("interrompre" is in menuitem 1 of menu 2 and last word of short name of btn id 294 > 3) thenelse info36 the number of meend mouseUp</script>
</part>
<part>
<id>142</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>429</left>
<top>71</top>
<right>451</right>
<bottom>93</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>26</name>
<script></script>
</part>
<part>
<id>144</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>381</left>
<top>23</top>
<right>397</right>
<bottom>39</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseupput the seconds into stwait 10 ticksif the mouseclick and the seconds - st < 4thensend doubleclic to btn id 230end ifend mouseupon mouseenterinfo36 the number of meend mouseenter</script>
</part>
<part>
<id>145</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>398</left>
<top>23</top>
<right>414</right>
<bottom>39</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseupput the seconds into stwait 10 ticksif the mouseclick and the seconds - st < 4thensend doubleclic to btn id 230end ifend mouseupon mouseenterinfo36 the number of meend mouseenter</script>
</part>
<part>
<id>146</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>415</left>
<top>23</top>
<right>431</right>
<bottom>39</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseupput the seconds into stwait 10 ticksif the mouseclick and the seconds - st < 4thensend doubleclic to btn id 230end ifend mouseupon mouseenterinfo36 the number of meend mouseenter</script>
</part>
<part>
<id>147</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>432</left>
<top>23</top>
<right>448</right>
<bottom>39</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseupput the seconds into stwait 10 ticksif the mouseclick and the seconds - st < 4thensend doubleclic to btn id 230end ifend mouseupon mouseenterinfo36 the number of meend mouseenter</script>
</part>
<part>
<id>148</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>449</left>
<top>23</top>
<right>465</right>
<bottom>39</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseupput the seconds into stwait 10 ticksif the mouseclick and the seconds - st < 4thensend doubleclic to btn id 230end ifend mouseupon mouseenterinfo36 the number of meend mouseenter</script>
</part>
<part>
<id>149</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>466</left>
<top>23</top>
<right>482</right>
<bottom>39</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseupput the seconds into stwait 10 ticksif the mouseclick and the seconds - st < 4thensend doubleclic to btn id 230end ifend mouseupon mouseenterinfo36 the number of meend mouseenter</script>
</part>
<part>
<id>150</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>483</left>
<top>23</top>
<right>499</right>
<bottom>39</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseupput the seconds into stwait 10 ticksif the mouseclick and the seconds - st < 4thensend doubleclic to btn id 230end ifend mouseupon mouseenterinfo36 the number of meend mouseenter</script>
</part>
<part>
<id>151</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>381</left>
<top>40</top>
<right>397</right>
<bottom>56</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseupput the seconds into stwait 10 ticksif the mouseclick and the seconds - st < 4thensend doubleclic to btn id 230end ifend mouseupon mouseenterinfo36 the number of meend mouseenter</script>
</part>
<part>
<id>152</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>398</left>
<top>40</top>
<right>414</right>
<bottom>56</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseupput the seconds into stwait 10 ticksif the mouseclick and the seconds - st < 4thensend doubleclic to btn id 230end ifend mouseupon mouseenterinfo36 the number of meend mouseenter</script>
</part>
<part>
<id>153</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>415</left>
<top>40</top>
<right>431</right>
<bottom>56</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseupput the seconds into stwait 10 ticksif the mouseclick and the seconds - st < 4thensend doubleclic to btn id 230end ifend mouseupon mouseenterinfo36 the number of meend mouseenter</script>
</part>
<part>
<id>154</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>432</left>
<top>40</top>
<right>448</right>
<bottom>56</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseupput the seconds into stwait 10 ticksif the mouseclick and the seconds - st < 4thensend doubleclic to btn id 230end ifend mouseupon mouseenterinfo36 the number of meend mouseenter</script>
</part>
<part>
<id>155</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>449</left>
<top>40</top>
<right>465</right>
<bottom>56</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseupput the seconds into stwait 10 ticksif the mouseclick and the seconds - st < 4thensend doubleclic to btn id 230end ifend mouseupon mouseenterinfo36 the number of meend mouseenter</script>
</part>
<part>
<id>156</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>466</left>
<top>40</top>
<right>482</right>
<bottom>56</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseupput the seconds into stwait 10 ticksif the mouseclick and the seconds - st < 4thensend doubleclic to btn id 230end ifend mouseupon mouseenterinfo36 the number of meend mouseenter</script>
</part>
<part>
<id>157</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>483</left>
<top>40</top>
<right>499</right>
<bottom>56</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseupput the seconds into stwait 10 ticksif the mouseclick and the seconds - st < 4thensend doubleclic to btn id 230end ifend mouseupon mouseenterinfo36 the number of meend mouseenter</script>
</part>
<part>
<id>158</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>381</left>
<top>57</top>
<right>397</right>
<bottom>73</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseupput the seconds into stwait 10 ticksif the mouseclick and the seconds - st < 4thensend doubleclic to btn id 230end ifend mouseupon mouseenterinfo36 the number of meend mouseenter</script>
</part>
<part>
<id>159</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>398</left>
<top>57</top>
<right>414</right>
<bottom>73</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseupput the seconds into stwait 10 ticksif the mouseclick and the seconds - st < 4thensend doubleclic to btn id 230end ifend mouseupon mouseenterinfo36 the number of meend mouseenter</script>
</part>
<part>
<id>160</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>415</left>
<top>57</top>
<right>431</right>
<bottom>73</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseupput the seconds into stwait 10 ticksif the mouseclick and the seconds - st < 4thensend doubleclic to btn id 230end ifend mouseupon mouseenterinfo36 the number of meend mouseenter</script>
</part>
<part>
<id>161</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>432</left>
<top>57</top>
<right>448</right>
<bottom>73</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseupput the seconds into stwait 10 ticksif the mouseclick and the seconds - st < 4thensend doubleclic to btn id 230end ifend mouseupon mouseenterinfo36 the number of meend mouseenter</script>
</part>
<part>
<id>162</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>449</left>
<top>57</top>
<right>465</right>
<bottom>73</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseupput the seconds into stwait 10 ticksif the mouseclick and the seconds - st < 4thensend doubleclic to btn id 230end ifend mouseupon mouseenterinfo36 the number of meend mouseenter</script>
</part>
<part>
<id>163</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>466</left>
<top>57</top>
<right>482</right>
<bottom>73</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseupput the seconds into stwait 10 ticksif the mouseclick and the seconds - st < 4thensend doubleclic to btn id 230end ifend mouseupon mouseenterinfo36 the number of meend mouseenter</script>
</part>
<part>
<id>164</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>483</left>
<top>57</top>
<right>499</right>
<bottom>73</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseupput the seconds into stwait 10 ticksif the mouseclick and the seconds - st < 4thensend doubleclic to btn id 230end ifend mouseupon mouseenterinfo36 the number of meend mouseenter</script>
</part>
<part>
<id>165</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>381</left>
<top>74</top>
<right>397</right>
<bottom>90</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseupput the seconds into stwait 10 ticksif the mouseclick and the seconds - st < 4thensend doubleclic to btn id 230end ifend mouseupon mouseenterinfo36 the number of meend mouseenter</script>
</part>
<part>
<id>166</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>398</left>
<top>74</top>
<right>414</right>
<bottom>90</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseupput the seconds into stwait 10 ticksif the mouseclick and the seconds - st < 4thensend doubleclic to btn id 230end ifend mouseupon mouseenterinfo36 the number of meend mouseenter</script>
</part>
<part>
<id>167</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>415</left>
<top>74</top>
<right>431</right>
<bottom>90</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseupput the seconds into stwait 10 ticksif the mouseclick and the seconds - st < 4thensend doubleclic to btn id 230end ifend mouseupon mouseenterinfo36 the number of meend mouseenter</script>
</part>
<part>
<id>168</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>432</left>
<top>74</top>
<right>448</right>
<bottom>90</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseupput the seconds into stwait 10 ticksif the mouseclick and the seconds - st < 4thensend doubleclic to btn id 230end ifend mouseupon mouseenterinfo36 the number of meend mouseenter</script>
</part>
<part>
<id>169</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>449</left>
<top>74</top>
<right>465</right>
<bottom>90</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseupput the seconds into stwait 10 ticksif the mouseclick and the seconds - st < 4thensend doubleclic to btn id 230end ifend mouseupon mouseenterinfo36 the number of meend mouseenter</script>
</part>
<part>
<id>170</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>466</left>
<top>74</top>
<right>482</right>
<bottom>90</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseupput the seconds into stwait 10 ticksif the mouseclick and the seconds - st < 4thensend doubleclic to btn id 230end ifend mouseupon mouseenterinfo36 the number of meend mouseenter</script>
</part>
<part>
<id>171</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>483</left>
<top>74</top>
<right>499</right>
<bottom>90</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseupput the seconds into stwait 10 ticksif the mouseclick and the seconds - st < 4thensend doubleclic to btn id 230end ifend mouseupon mouseenterinfo36 the number of meend mouseenter</script>
</part>
<part>
<id>172</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>381</left>
<top>91</top>
<right>397</right>
<bottom>107</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseupput the seconds into stwait 10 ticksif the mouseclick and the seconds - st < 4thensend doubleclic to btn id 230end ifend mouseupon mouseenterinfo36 the number of meend mouseenter</script>
</part>
<part>
<id>173</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>398</left>
<top>91</top>
<right>414</right>
<bottom>107</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseupput the seconds into stwait 10 ticksif the mouseclick and the seconds - st < 4thensend doubleclic to btn id 230end ifend mouseupon mouseenterinfo36 the number of meend mouseenter</script>
</part>
<part>
<id>174</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>415</left>
<top>91</top>
<right>431</right>
<bottom>107</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseupput the seconds into stwait 10 ticksif the mouseclick and the seconds - st < 4thensend doubleclic to btn id 230end ifend mouseupon mouseenterinfo36 the number of meend mouseenter</script>
</part>
<part>
<id>175</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>432</left>
<top>91</top>
<right>448</right>
<bottom>107</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseupput the seconds into stwait 10 ticksif the mouseclick and the seconds - st < 4thensend doubleclic to btn id 230end ifend mouseupon mouseenterinfo36 the number of meend mouseenter</script>
</part>
<part>
<id>176</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>449</left>
<top>91</top>
<right>465</right>
<bottom>107</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseupput the seconds into stwait 10 ticksif the mouseclick and the seconds - st < 4thensend doubleclic to btn id 230end ifend mouseupon mouseenterinfo36 the number of meend mouseenter</script>
</part>
<part>
<id>177</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>466</left>
<top>91</top>
<right>482</right>
<bottom>107</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseupput the seconds into stwait 10 ticksif the mouseclick and the seconds - st < 4thensend doubleclic to btn id 230end ifend mouseupon mouseenterinfo36 the number of meend mouseenter</script>
</part>
<part>
<id>178</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>483</left>
<top>91</top>
<right>499</right>
<bottom>107</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseupput the seconds into stwait 10 ticksif the mouseclick and the seconds - st < 4thensend doubleclic to btn id 230end ifend mouseupon mouseenterinfo36 the number of meend mouseenter</script>
</part>
<part>
<id>179</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>381</left>
<top>108</top>
<right>397</right>
<bottom>124</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseupput the seconds into stwait 10 ticksif the mouseclick and the seconds - st < 4thensend doubleclic to btn id 230end ifend mouseupon mouseenterinfo36 the number of meend mouseenter</script>
</part>
<part>
<id>180</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>398</left>
<top>108</top>
<right>414</right>
<bottom>124</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseupput the seconds into stwait 10 ticksif the mouseclick and the seconds - st < 4thensend doubleclic to btn id 230end ifend mouseupon mouseenterinfo36 the number of meend mouseenter</script>
</part>
<part>
<id>181</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>415</left>
<top>108</top>
<right>431</right>
<bottom>124</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseupput the seconds into stwait 10 ticksif the mouseclick and the seconds - st < 4thensend doubleclic to btn id 230end ifend mouseupon mouseenterinfo36 the number of meend mouseenter</script>
</part>
<part>
<id>182</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>432</left>
<top>108</top>
<right>448</right>
<bottom>124</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseupput the seconds into stwait 10 ticksif the mouseclick and the seconds - st < 4thensend doubleclic to btn id 230end ifend mouseupon mouseenterinfo36 the number of meend mouseenter</script>
</part>
<part>
<id>183</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>449</left>
<top>108</top>
<right>465</right>
<bottom>124</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseupput the seconds into stwait 10 ticksif the mouseclick and the seconds - st < 4thensend doubleclic to btn id 230end ifend mouseupon mouseenterinfo36 the number of meend mouseenter</script>
</part>
<part>
<id>184</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>466</left>
<top>108</top>
<right>482</right>
<bottom>124</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseupput the seconds into stwait 10 ticksif the mouseclick and the seconds - st < 4thensend doubleclic to btn id 230end ifend mouseupon mouseenterinfo36 the number of meend mouseenter</script>
</part>
<part>
<id>185</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>483</left>
<top>108</top>
<right>499</right>
<bottom>124</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseupput the seconds into stwait 10 ticksif the mouseclick and the seconds - st < 4thensend doubleclic to btn id 230end ifend mouseupon mouseenterinfo36 the number of meend mouseenter</script>
</part>
<part>
<id>186</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>381</left>
<top>125</top>
<right>397</right>
<bottom>141</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseupput the seconds into stwait 10 ticksif the mouseclick and the seconds - st < 4thensend doubleclic to btn id 230end ifend mouseupon mouseenterinfo36 the number of meend mouseenter</script>
</part>
<part>
<id>187</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>398</left>
<top>125</top>
<right>414</right>
<bottom>141</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseupput the seconds into stwait 10 ticksif the mouseclick and the seconds - st < 4thensend doubleclic to btn id 230end ifend mouseupon mouseenterinfo36 the number of meend mouseenter</script>
</part>
<part>
<id>188</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>415</left>
<top>125</top>
<right>431</right>
<bottom>141</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseupput the seconds into stwait 10 ticksif the mouseclick and the seconds - st < 4thensend doubleclic to btn id 230end ifend mouseupon mouseenterinfo36 the number of meend mouseenter</script>
</part>
<part>
<id>189</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>432</left>
<top>125</top>
<right>448</right>
<bottom>141</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseupput the seconds into stwait 10 ticksif the mouseclick and the seconds - st < 4thensend doubleclic to btn id 230end ifend mouseupon mouseenterinfo36 the number of meend mouseenter</script>
</part>
<part>
<id>190</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>449</left>
<top>125</top>
<right>465</right>
<bottom>141</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseupput the seconds into stwait 10 ticksif the mouseclick and the seconds - st < 4thensend doubleclic to btn id 230end ifend mouseupon mouseenterinfo36 the number of meend mouseenter</script>
</part>
<part>
<id>191</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>466</left>
<top>125</top>
<right>482</right>
<bottom>141</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseupput the seconds into stwait 10 ticksif the mouseclick and the seconds - st < 4thensend doubleclic to btn id 230end ifend mouseupon mouseenterinfo36 the number of meend mouseenter</script>
</part>
<part>
<id>192</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>483</left>
<top>125</top>
<right>499</right>
<bottom>141</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseupput the seconds into stwait 10 ticksif the mouseclick and the seconds - st < 4thensend doubleclic to btn id 230end ifend mouseupon mouseenterinfo36 the number of meend mouseenter</script>
</part>
<part>
<id>193</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>382</left>
<top>158</top>
<right>499</right>
<bottom>180</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Jouer</name>
<script>on mouseUp xglobal lavar,dest,chrono,déb,fin,psto,ens,euréka,annul,kalei,combien,libre,parkalei,enplace,blocdiag,avortdiag,blocniv,rejeu,étpièces,quelniv,quelledir,ssmes,¬annulkalei,annulkalei2,unpostinv,alea,BATput "- - . - - . - -" into cd fld tempsput "" into fld formesif the checkmark of menuitem 3 of menu 5 is truethenset the checkmark of menuitem 3 of menu 5 to falsesend aveugle to btn id 230end ifif cd fld combinaison ≠ "" then put cd fld combinaison into ocazuelse put "" into ocazuput last word of short name of btn id 294 into quelnivset cursor to watchlock screenvoyantif style of btn id 278 = opaque then set name of btn 26 to ""set loc of btn position to loc of btn 76affichagenetunlock screenshow btn 1set icon of btn 1 to venisset loc of btn 1 to loc of btn 26colorizeHC "add","btnnouveaujeual","item 1 of rect of me,item 2 of rect of me"colorizeHC "add",word 1 of short name of btn 1 & "1",rect of btn 26unlock screengriser "btn créer,btn analyser,btn id 278",truelock screenshow btn positionset the checkmark of menuitem 1 of menu 2 to trueset textstyle of btn "compt" to plainset textstyle of btn "chrono" to plainset style of btn jouer to opaqueput "" into chronoput "" into débput "" into finput "" into pstoput "" into ensput "" into eurékaput "" into combienput "" into libreput "" into parkaleiput "" into blocdiagput "" into avortdiagput "" into blocnivput "" into lavarput "26" into destput "B J M O R M V B" into kaleiput ",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,," into cd fld solutionset name of btn id 142 to 26if "oui" is in rejeuthenput line 3 of cd fld rejouer into cd fld combinaisonput line 4 of cd fld rejouer into cd fld solutionput item 1 to 49 of line 1 of cd fld solution into BATif the number of items of cd fld solution = 50then put item 50 of cd fld solution into fld formesset name of btn id 142 to word 2 of line 5 of cd fld rejouerput word 1 of line 5 of cd fld rejouer into lavarput word 2 of line 5 of cd fld rejouer into destset name of btn id 294 to "Niveau " & word 1 of line 2 of cd fld rejouerif word 1 of line 2 of cd fld rejouer = 1then set icon of btn id 294 to "un"else if word 1 of line 2 of cd fld rejouer = 2then set icon of btn id 294 to "deux"else if word 1 of line 2 of cd fld rejouer = 3then set icon of btn id 294 to "trois"else if word 1 of line 2 of cd fld rejouer = 4then set icon of btn id 294 to "quatre"else if word 1 of line 2 of cd fld rejouer = 5then set icon of btn id 294 to "cinq"else set icon of btn id 294 to "sis"repeat until the lockscreen is falseunlock screenend repeatlock screenput short name of btn id 294 & "…" into menuitem 1 of menu 5 with menumessages niveauif "(symb.)" is in menu 5 then set style of btn id 278 to opaqueelse set style of btn id 278 to transparentset the commandchar of menuitem 1 of menu 5 to "J"-- set loc of btn 1 to loc of btn dest-- set loc of btn position to loc of btn (dest+50)if last word of short name of btn id 294 is in "56" and item dest-1 of cd fld solution ≠ ""thenput "oui" into blocdiagend ifcolorizeHC "add", short name of btn id 278 & "1",item 1 to 2 of rect of fld "monéchiquier"-- if "oui" is in rejeu -- ••-- thenlock screenset cursor to watchrepeat with a = 11 to 15if a = 11thenif true is in line a of cd fld rejouerthen set the checkmark of menuitem 3 of menu 5 to falseelse set the checkmark of menuitem 3 of menu 5 to trueaveugleelse if a = 12thenif true is in line a of cd fld rejouerthen set style of btn bonusmalus to transparentelse set style of btn bonusmalus to opaquepénalitéselse if a = 13thenif true is in line a of cd fld rejouerthenput "En " & word 2 of line a of cd fld rejouer && "coups…" into menuitem 5 of menu 5 with menumessages compteurset the checkmark of menuitem 5 of menu 5 to truedisable menuitem 5 of menu 5griser "btn moins,btn plus",falseset style of btn "compt" to opaqueput word 2 of line a of cd fld rejouer & return & word 3 of line a of cd fld rejouer into cd fld décompteput word 4 of line a of cd fld rejouer into cd fld coupselseset the checkmark of menuitem 5 of menu 5 to falseset style of btn "compt" to transparentend ifelse if a = 14thenif true is in line a of cd fld rejouerthen set style of btn "inversion" to transparentelse set style of btn "inversion" to opaqueverlanelse if a = 15thenif true is in line a of cd fld rejouerthenput "En " & word 2 of line a of cd fld rejouer && "minutes…" into menuitem 7 of menu 5 with menumessages minuterieset the checkmark of menuitem 7 of menu 5 to truedisable menuitem 7 of menu 5griser "btn moins,btn plus",falseset style of btn "chrono" to opaqueput word 2 of line a of cd fld rejouer into cd fld chronomètreget script of this cardput "on idle" into line 1 of itset script of this card to itelseset the checkmark of menuitem 7 of menu 5 to falseset style of btn "chrono" to transparentend ifend ifif 29812 is in item 2 of line 12 of cd fld rejouerthenset icon of btn "enregistrer" to 29812disable menuitem 4 of menu 3end ifend repeat-- end ifput item 1 of line 50 of cd fld rejouer into kaleiput item 2 of line 50 of cd fld rejouer into annulkaleiput item 3 of line 50 of cd fld rejouer into annulkalei2put item 4 of line 50 of cd fld rejouer into unpostinvput word 1 of short name of btn 1 & last char of item 5 of line 50 of cd fld rejouer into quelledirput item 6 of line 50 of cd fld rejouer into aleaput line 51 to 56 of cd fld rejouer into annulelseput "niveau" & last word of short name of btn id 294 into chpif ssmes = "" and cd fld combinaison ≠ ""thenanswer "Voulez-vous jouer avec la dernière mosaïque affichée (" & "Niveau " & word 1 of line 2 of cd fld combinaison & ") ?" with "Annuler" or "OK" or "Nouvelle"unlock screenlock screenif it is "Annuler"thencolorizehc "add","btnnouveaujeuét",item 1 to 2 of rect of meunlock screenfindepartieexit mouseupelse if it is "Nouvelle"thenif fld chp = ""thenbeepanswer "Le Niveau " & last word of short name of btn id 294 & " ne contient aucune mosaïque."colorizehc "add","btnnouveaujeuét",item 1 to 2 of rect of meunlock screenfindepartieexit mouseupelse put line random (the number of lines of fld chp) of fld chp into cd fld combinaisonelseunlock screensend nouveauniveau to btn id 294put line 1 of cd fld combinaison into cd fld combinaisonlock screenend ifelseput "" into ssmesif fld chp = ""thenbeepanswer "Le Niveau " & last word of short name of btn id 294 & " ne contient aucune mosaïque."colorizehc "add","btnnouveaujeuét",item 1 to 2 of rect of meunlock screenfindepartieexit mouseupelse put line (random (the number of lines of fld chp)) of fld chp into cd fld combinaisonend ifend ifif last word of short name of btn id 294 is in "36"thenset style of btn id 278 to transparentend ifif the checkmark of menuitem 3 of menu 5 = falsethenif last word of short name of btn id 294 is in "36"then set icon of btn position to "croix2"else set icon of btn position to "croix"end ifput "Interrompre la partie…" into menuitem 1 of menu 2 with menumessages "jouer"set commandchar of menuitem 1 of menu 2 to "I"désactiver "8 10",2,trueif last word of short name of btn id 294 > 3 then désactiver "1 3 5",3,trueelse désactiver "3 5","3",truedésactiver "4 7",3,falsedésactiver "1 3 5 7 11 17",5,truedésactiver "4 6 9 10 12 13 14 16",5,falseif the checkmark of menuitem 3 of menu 5 = falsethen disable menuitem 3 of menu 5if the checkmark of menuitem 5 of menu 5 = falsethenset style of btn "compt" to transparentput "- -" into cd fld coupselseset style of btn "compt" to opaqueput line 1 of cd fld décompte into line 2 of cd fld décompteput line 1 of cd fld décompte into cd fld coupsend if-- ** if the checkmark of menuitem 5 of menu 5 = true-- then-- put line 1 of cd fld décompte into line 2 of cd fld décompte-- put line 1 of cd fld décompte into cd fld coups-- else put "- -" into cd fld coups -- **if the checkmark of menuitem 7 of menu 5 = falsethenset style of btn "chrono" to transparentput "- - . - - . - -" into cd fld temps of card 2else set style of btn "chrono" to opaqueif last word of short name of btn id 294 = 6 then quelleformeif style of btn "bonusmalus" = opaquethenset icon of btn "enregistrer" to 29812disable menuitem 4 of menu 3end if -- °°set loc of btn 1 to loc of btn destset loc of btn position to loc of btn (dest+50)repeat with i = 52 to 100set cursor to (i+76)set name of btn (i-50) to ""if the mouseclickthenhide btn 1set loc of btn 1 to loc of btn 26if ocazu ≠ "" then put ocazu into cd fld combinaisonelse put "" into cd fld combinaisonnet iaffichagecolorizehc "add","btnnouveaujeuét",item 1 to 2 of rect of meset loc of btn position to loc of btn 76repeat until the lockscreen is falseunlock screenend repeatrepeat 4put "Annulé" into cd fld tempswait 4 ticksput "" into cd fld tempsend repeatput "- - . - - . - -" into cd fld tempssend ancienniveau to btn id 294findepartieshow btn 1exit mouseupend ifif last word of short name of btn id 294 ≥ 5thenif last char of i is in "02468"thenset style of btn (i-50) to shadowset style of btn i to shadowend ifend ifif item (i-51) of cd fld combinaison = ""thencolorizeHC "add","ptbtngris",rect of btn iif "oui" is not in rejeu then next repeatend ifif last word of short name of btn id 294 is in "36"thenif "oui" is in rejeuthenif last word of short name of btn id 294 = 3thendo q && "," & i & "," & (char 1 of word 3 of item i-51 of cd fld combinaison) & "," & combinaisondo q && "," & i-50 & "," & (char 1 of word 3 of item i-51 of cd fld solution) & "," & solutionelsedo char i-50 of fld formes && "," & i & "," & (char 1 of word 3 of item i-51 of cd fld combinaison) & "," & combinaisondo char i-50 of fld formes && "," & i-50 & "," & (char 1 of word 3 of item i-51 of cd fld solution) & "," & solutionend ifelseif last word of short name of btn id 294 = 3thendo q && "," & i & "," & (char 1 of word 3 of item i-51 of cd fld combinaison) & "," & combinaisonelsedo char i-50 of fld formes && "," & i & "," & (char 1 of word 3 of item i-51 of cd fld combinaison) & "," & combinaisonend ifend ifelseif last word of short name of btn id 294 is in "12"thenput "ptbtn" & item (i-51) of cd fld combinaison & "2" into nivcoulput fld mespièces & "btn" & item (i-51) of cd fld solution & "2" into nivcoulrejelse if last word of short name of btn id 294 is in "45"thenput "ptbtn" & item (i-51) of cd fld combinaison into nivcoulput fld mespièces & "btn" & item (i-51) of cd fld solution into nivcoulrejend ifif "oui" is in rejeu and item (i-51) of cd fld solution ≠ ""then colorizeHC "add",nivcoulrej,rect of btn (i-50)colorizeHC "add",nivcoul,rect of btn iend ifif "oui" is in rejeu and (i-50) = destthenif last word of short name of btn id 294 = 1 or item dest-1 of cd fld solution = "" ¬or (the number of words of item dest-1 of cd fld solution = 3 and last word of short name of btn id 294 = 3) ¬or ("v" is in last word of item dest-1 of cd fld solution and last word of short name of btn id 294 is in "123") ¬or ("v" is in last word of item dest-1 of cd fld solution and "3" is not in last word of item dest-1 of cd fld solution)thencolorizeHC "add",word 1 of short name of btn 1 & last char of quelledir, rect of btn (i-50)elseif "3" is not in last word of item dest-1 of cd fld solution and the number of words of item dest-1 of cd fld solution < 3thencolorizeHC "add","N" & word 7 of kalei,rect of btn (i-50)colorizeHC "add",word 1 of short name of btn 1 & last char of quelledir, rect of btn 1elseif last word of short name of btn id 294 = 3thencolorizeHC "add",word 1 of short name of btn 1 & last char of quelledir, rect of btn (i-50)elsecolorizeHC "add","ptbtngris",rect of btn (i-50)colorizeHC "add",word 1 of short name of btn 1 & last char of quelledir, rect of btn 1end ifend ifend ifelse if "oui" is in rejeu and (i-50) ≠ dest and style of btn id 278 = opaque and item (i-51) of cd fld solution ≠ "" then marquer (i-50)end repeatif last word of short name of btn id 294 is in "36" then voyantal-- **-- ••lock screenif the checkmark of menuitem 5 of menu 5 = false and the checkmark of menuitem 7 of menu 5 = falsethen griser "btn moins,btn plus",trueif last word of short name of btn id 294 ≤ 3 then enable menuitem 1 of menu 3else disable menuitem 1 of menu 3-- °°if ",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,," = item 1 to 49 of cd fld solution then disable menuitem 8 of menu 2else enable menuitem 8 of menu 2put "Sauvegarder sous…" into menuitem 9 of menu 2 with menumessages sauvejeuset icon of btn 1 to ""put "," & return & last word of short name of btn id 294 after cd fld combinaisonrepeat until the lockscreen is falseunlock screenend repeatif icon of btn id 269 = "0"thenplay stopplay trzim gelseput "OK" into cd fld tempswait 1 secput "- - . - - . - -" into cd fld tempsend ifput "" into ocazuend mouseUpon findepartieglobal inversion,euréka,dest,psto,chrono,déb,fin,ens,rejeu,étpièces,quelledir,blocdiag,avortdiag,quidiag,blocniv,annul,annulkalei,annulkalei2,quelniv,blocflash,¬unpostinv,BATlock screencolorizehc "add","btnnouveaujeuét",item 1 to 2 of rect of meunlock screenif the checkmark of menuitem 7 of menu 5 = truethenput "" into pstoput "" into débput "" into finput "" into chronoput "" into ensput "" into eurékaend ifput "" into unpostinvput "" into blocflashput "" into lavarput "26" into destput "" into blocdiagput "" into avortdiagput "" into quidiagput "" into rejeuput "" into quelledirput "" into annulput "" into annulkaleiput "" into annulkalei2put "" into blocnivput "" into BATput ",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,," into cd fld solutionset cursor to watchlock screenset loc of btn 1 to loc of btn 26set loc of btn position to loc of btn 76if style of btn id 278 = opaque then set name of btn 26 to ""if style of btn id 314 = opaque then verserif the checkmark of menuitem 4 of menu 5 is true then set style of btn "bonusmalus" to opaqueif the checkmark of menuitem 6 of menu 5 is true then set style of btn "inversion" to opaqueif euréka = "" then affichagenetunlock screenif last word of short name of btn id 294 is in "36" then voyantset rect of btn position to rect of btn id 142lampif symb is in menu 5 then set style of btn id 278 to opaqueelse set style of btn id 278 to transparentunlock screenset style of btn jouer to transparentgriser "btn id 278,btn analyser,btn créer,btn enregistrer,btn plus,btn moins","false"lock screenif cd fld couleurs = ""thenset icon of btn "compt" to ""set icon of btn "chrono" to ""if the checkmark of menuitem 5 of menu 5 = truethenput line 1 of cd fld décompte into cd fld coupsset style of btn "compt" to opaqueelseput "- -" into cd fld coupsput line 1 of cd fld décompte into line 2 of cd fld décompteend ifif the checkmark of menuitem 7 of menu 5 = falsethenput "- - . - - . - -" into cd fld tempsset style of btn "chrono" to opaqueend ifif the checkmark of menuitem 3 of menu 5 is truethenset the checkmark of menuitem 3 of menu 5 to falseaveugleelseif last word of short name of btn id 294 is in "36"then set icon of btn position to "croix2"else set icon of btn position to "croix"end ifelse send restaurer to btn quitterput "" into fld formessend ancienniveau to btn id 294put line 1 of cd fld décompte into line 2 of cd fld décompteset name of btn id 142 to 26put "Charger sauvegarde…" into menuitem 9 of menu 2 with menumessages sauvejeuput "Nouvelle partie…" into menuitem 1 of menu 2 with menumessages "jouer"set commandchar of menuitem 1 of menu 2 to "N"if cd fld rejouer ≠ "" then enable menuitem 8 of menu 2else disable menuitem 8 of menu 2enable menuitem 10 of menu 2désactiver "3 5 6","3",falsedésactiver "1 4 7",3,truedésactiver "1 3 4 5 6 7 9 10 11 12 13 14 16",5,falsedisable menuitem 17 of menu 5end findepartieon effacementsend effacement to btn id 294end effacementon voyantput "vvert vjaune vorange vrouge vmauve vbleu" into appelrepeat with pyr = 6 down to 1set hilite of btn (word pyr of appel) to falseend repeatend voyanton voyantalput "vvert vjaune vorange vrouge vmauve vbleu" into appelrepeat with pyr = 1 to 6set hilite of btn (word pyr of appel) to trueif char 2 of (word pyr of appel) is in item (short name of btn id 142)-1 of cd fld combinaison then set hilite of btn (word pyr of appel) to falseend repeatif item (short name of btn id 142)-1 of cd fld combinaison = ""then put "ø" into cd fld tempselse put item (short name of btn id 142)-1 of cd fld combinaison into cd fld tempsend voyantalon q y,z,w,vglobal lavar,kalei,chip,chap,chopput rect of btn z into xif z ≥ 52thenput 51 into ptgdput "3 6" into asousipapopt y,z,w,velseput 1 into ptgdput "8 16" into asousipapopg y,z,w,vend ifrepeat with pyr = 1 to the number of words of item (z-ptgd) of cd fld vif pyr = 1 then colorizehc "add",chip,rect of btn zelse if pyr = 2 then colorizehc "add",chap,"(item 1 of x)+word 1 of asous,(item 2 of x)+word 1 of asous,(item 3 of x)-word 1 of asous,(item 4 of x)-word 1 of asous"else colorizehc "add",chop,"(item 1 of x)+word 2 of asous,(item 2 of x)+word 2 of asous,(item 3 of x)-word 2 of asous,(item 4 of x)-word 2 of asous"end repeatend q -- pyramon s y,z,w,vglobal lavar,kalei,chip,chap,chopput rect of btn z into xif z ≥ 52thenput 51 into ptgdput "5" into asousipapopt y,z,w,velseput 1 into ptgdput "15" into asousipapopg y,z,w,vend ifrepeat with pyr = 1 to the number of words of item (z-ptgd) of cd fld vif pyr = 1 then colorizehc "add",chip,rect of btn zelse if pyr = 2 then colorizehc "add",chap,"(item 1 of x)+asous,item 2 of x,(item 3 of x)-asous,item 4 of x"else colorizehc "add",chop,"(item 1 of x),(item 2 of x)+asous,item 3 of x,(item 4 of x)-asous"end repeatend s -- croixon d y,z,w,vglobal lavar,kalei,chip,chap,chopput rect of btn z into xif z ≥ 52thenput 51 into ptgdput "5 10" into asousipapopt y,z,w,velseput 1 into ptgdput "15 30" into asousipapopg y,z,w,vend ifrepeat with pyr = 1 to the number of words of item (z-ptgd) of cd fld vif pyr = 1 then colorizehc "add",chip,rect of btn zelse if pyr = 2 then colorizehc "add",chap,"(item 1 of x),(item 2 of x)+word 1 of asous,(item 3 of x),(item 4 of x)-word 1 of asous"else colorizehc "add",chop,"(item 1 of x),(item 2 of x)+word 2 of asous,item 3 of x,item 4 of x"end repeatend d -- barrehon f y,z,w,vglobal lavar,kalei,chip,chap,chopput rect of btn z into xif z ≥ 52thenput 51 into ptgdput "5 10" into asousipapopt y,z,w,velseput 1 into ptgdput "15 30" into asousipapopg y,z,w,vend ifrepeat with pyr = 1 to the number of words of item (z-ptgd) of cd fld vif pyr = 1 then colorizehc "add",chip,rect of btn zelse if pyr = 2 then colorizehc "add",chap,"(item 1 of x)+word 1 of asous,item 2 of x,(item 3 of x)-word 1 of asous,item 4 of x"else colorizehc "add",chop,"(item 1 of x)+word 2 of asous,item 2 of x,item 3 of x,item 4 of x"end repeatend f -- barrevon g y,z,w,vglobal lavar,kalei,chip,chap,chopput rect of btn z into xif z ≥ 52thenput 51 into ptgdput "5 10" into asousipapopt y,z,w,velseput 1 into ptgdput "15 30" into asousipapopg y,z,w,vend ifrepeat with pyr = 1 to the number of words of item (z-ptgd) of cd fld vif pyr = 1 then colorizehc "add",chip,rect of btn zelse if pyr = 2 then colorizehc "add",chap,"(item 1 of x),item 2 of x,(item 3 of x)-word 1 of asous,(item 4 of x)-word 1 of asous"else colorizehc "add",chop,"(item 1 of x),item 2 of x,(item 3 of x)-word 2 of asous,(item 4 of x)-word 2 of asous"end repeatend g -- coinseon h y,z,w,vglobal lavar,kalei,chip,chap,chopput rect of btn z into xif z ≥ 52thenput 51 into ptgdput "5 10" into asousipapopt y,z,w,velseput 1 into ptgdput "15 30" into asousipapopg y,z,w,vend ifrepeat with pyr = 1 to the number of words of item (z-ptgd) of cd fld vif pyr = 1 then colorizehc "add",chip,rect of btn zelse if pyr = 2 then colorizehc "add",chap,"(item 1 of x)+word 1 of asous,(item 2 of x)+word 1 of asous,(item 3 of x),(item 4 of x)"else colorizehc "add",chop,"(item 1 of x)+word 2 of asous,(item 2 of x)+word 2 of asous,(item 3 of x),(item 4 of x)"end repeatend h -- coinNOon j y,z,w,vglobal lavar,kalei,chip,chap,chopput rect of btn z into xif z ≥ 52thenput 51 into ptgdput "5 10" into asousipapopt y,z,w,velseput 1 into ptgdput "15 30" into asousipapopg y,z,w,vend ifrepeat with pyr = 1 to the number of words of item (z-ptgd) of cd fld vif pyr = 1 then colorizehc "add",chip,rect of btn zelse if pyr = 2 then colorizehc "add",chap,"(item 1 of x),(item 2 of x)+word 1 of asous,(item 3 of x)-word 1 of asous,(item 4 of x)"else colorizehc "add",chop,"(item 1 of x),(item 2 of x)+word 2 of asous,(item 3 of x)-word 2 of asous,(item 4 of x)"end repeatend j -- coinNEon k y,z,w,vglobal lavar,kalei,chip,chap,chopput rect of btn z into xif z ≥ 52thenput 51 into ptgdput "5 10" into asousipapopt y,z,w,velseput 1 into ptgdput "15 30" into asousipapopg y,z,w,vend ifrepeat with pyr = 1 to the number of words of item (z-ptgd) of cd fld vif pyr = 1 then colorizehc "add",chip,rect of btn zelse if pyr = 2 then colorizehc "add",chap, "(item 1 of x)+word 1 of asous,(item 2 of x),(item 3 of x),(item 4 of x)-word 1 of asous"else colorizehc "add",chop,"(item 1 of x)+word 2 of asous,(item 2 of x),(item 3 of x),(item 4 of x)-word 2 of asous"end repeatend k -- coinSOon l y,z,w,vglobal lavar,kalei,chip,chap,chopput rect of btn z into xif z ≥ 52thenput 51 into ptgdput 8 into asousipapopt y,z,w,velseput 1 into ptgdput 22 into asousipapopg y,z,w,vend ifrepeat with pyr = 1 to the number of words of item (z-ptgd) of cd fld vif pyr = 1 then colorizehc "add",chip,rect of btn zelse if pyr = 2 then colorizehc "add",chap,"(item 1 of x),item 2 of x,(item 3 of x)-asous,(item 4 of x)-asous"else colorizehc "add",chop,"(item 1 of x)+asous,(item 2 of x)+asous,item 3 of x,item 4 of x"end repeatend l -- carréunon m y,z,w,vglobal lavar,kalei,chip,chap,chopput rect of btn z into xif z ≥ 52thenput 51 into ptgdput 8 into asousipapopt y,z,w,velseput 1 into ptgdput 22 into asousipapopg y,z,w,vend ifrepeat with pyr = 1 to the number of words of item (z-ptgd) of cd fld vif pyr = 1 then colorizehc "add",chip,rect of btn zelse if pyr = 2 then colorizehc "add",chap,"(item 1 of x)+asous,item 2 of x,(item 3 of x),(item 4 of x)-asous"else colorizehc "add",chop,"(item 1 of x),(item 2 of x)+asous,(item 3 of x)-asous,item 4 of x"end repeatend m -- carrédeuxon ipapopt f,g,h,iglobal chip,chap,chopif last word of short name of btn id 294 ≤ 3thenput "standard" & "btn" & char 1 of word 1 of item g-51 of cd fld i & 2 into chipput "standard" & "btn" & char 1 of word 2 of item g-51 of cd fld i & 2 into chapput "standard" & "btn" & h & "2" into chopelseput "standard" & "btn" & char 1 of word 1 of item g-51 of cd fld i & 1 into chipput "standard" & "btn" & char 1 of word 2 of item g-51 of cd fld i & 2 into chapput "standard" & "btn" & h & "3" into chopend ifend ipapopton ipapopg f,g,h,iglobal kalei,chip,chap,chopif last word of short name of btn id 294 ≤ 3thenput fld mespièces & "btn" & word 1 of item g-1 of cd fld i & 2 into chipput fld mespièces & "btn" & word 2 of item g-1 of cd fld i & 2 into chapput fld mespièces & "btn" & word 3 of item g-1 of cd fld i & 2 into chopelseput fld mespièces & "btn" & word 1 of item g-1 of cd fld i into chipput fld mespièces & "btn" & word 2 of item g-1 of cd fld i into chapif f ≠ "" then put fld mespièces & "btn" & word f of kalei & "3" into chopelse put fld mespièces & "btn" & h & "3" into chopend ifend ipapopg</script>
</part>
<part>
<id>194</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>385</left>
<top>249</top>
<right>420</right>
<bottom>283</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Enregistrer</name>
<script>on mouseUpglobal BAT,chamif icon of btn enregistrer = 29812 then exit mouseuplock screencolorizehc "add","btnenregistreral","(item 1 of rect of me),(item 2 of rect of me)"unlock screenif icon of btn id 269 = "0"thenplay stopplay ptclicend ifsansclicend mouseUpon sansclicglobal dest,BATput "Niveau" & last word of short name of btn id 294 into champut item 1 to 49 of cd fld solution into BATput "" into item dest-1 of BATif BAT = "" or BAT = ",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,"thenanswer "Il n'y a rien à enregistrer …" & return & return & "Dessinez d'abord une mosaïque sur le grand damier."éteindreexit sansclicelse if visible of btn "jouer1" is truethenanswer "Votre mosaïque est-elle terminée ?" with "Non" or "Oui"if it is "Oui"thenenregistrement chamend ifelse enregistrement chaméteindreend sansclicon enregistrement mglobal BATif BAT is in fld mthenbeepanswer "Cette mosaïque existe déjà." & return & return & "Modifiez-la avant une nouvelle tentative d'enregistrement …"elseanswer "Veuillez confirmer l'enregistrement de la mosaïque créée …" with "Annuler" or "OK"if it is "OK"thenset cursor to busyif last word of short name of btn id 294 = 6 then put BAT & "," & fld formes into line (the number of lines of fld m)+1 of fld melse put BAT into line (the number of lines of fld m)+1 of fld mrepeat 4put "Terminé" into cd fld tempswait 6 ticksput "" into cd fld tempsend repeatput "- - . - - . - -" into cd fld tempsend ifend ifend enregistrementon éteindrelock screencolorizehc "add","btnenregistrerét","(item 1 of rect of me),(item 2 of rect of me)"unlock screenend éteindre</script>
</part>
<part>
<id>197</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>406</left>
<top>339</top>
<right>474</right>
<bottom>361</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Quitter</name>
<script>on mouseUpwait 6 ticksif the mouseclickthenbeepif style of me = transparentthenanswer "Voulez-vous désactiver le message d'alerte de ce bouton ?" with "Annuler" or "OK"if it is "annuler" then exit mouseupelseget script of merepeat with a = 60 to 62put "-- " before line a of itend repeatset script of me to itrepeat 4put "Désactivé" into cd fld tempswait 4 ticksput "" into cd fld tempsend repeatset style of me to opaqueend ifelseanswer "Voulez-vous activer le message d'alerte de ce bouton ?" with "Annuler" or "OK"if it is "annuler" then exit mouseupelseget script of merepeat with a = 60 to 62if "--" is in word 1 of line a of itthen delete word 1 of line a of itend repeatset script of me to itrepeat 4put "Activé" into cd fld tempswait 4 ticksput "" into cd fld tempsend repeatset style of me to transparentend ifend ifput "- - . - - . - -" into cd fld tempsexit mouseupend iflock screencolorizeHC "add","btnquitteral","item 1 of rect of me,item 2 of rect of me"unlock screenif icon of btn id 269 = "0"thenplay stopplay quitterend iflock screencolorizeHC "add","btnquitterét","item 1 of rect of me,item 2 of rect of me"unlock screenif icon of btn id 269 = "0"thenplay stopplay quitter2end ifanswer "Veuillez confirmer l'instruction : " & return & return & "«Quitter HyperCard»." & return & return with "Annuler" or "OK"if it is "annuler"then exit mouseupput "" into cd fld décompteput "" into cd fld chronomètretype q with commandkeyend mouseUpon aufwiedersehenglobal UserNameput "" into cd fld tempsset textstyle of cd fld temps to plain,bold,condenseset the textalign of cd fld temps to leftrepeat while " " is in usernameput " " into char offset (" ",username) of usernameend repeatif username = ""THENput "AU REVOIR …" into cd fld temps of card 2wait 1 secondselseput "                À VOUS REVOIR," & "  " & username & "  …" into cd fld temps of card 2end ifrepeat until cd fld temps of card 2 is emptydelete char 1 of cd fld temps of card 2if username ≠ "" then wait 4 ticksend repeatset the textalign of cd fld temps to centerset textstyle of cd fld temps to plain,boldput "- - . - - . - -" into cd fld tempsend aufwiedersehenon kwad9put the trunc of ((item 3 of the screenrect-423)/2) into Xput the trunc of ((item 4 of the screenrect-143)/2) into Yif the commandkey is downthenput "hidden,hidden,hidden,hidden,hidden,hidden" into hzput "" into item random (6) of hzput quote & "PictItem," & item 1 of hz & quote & return & quote & "PictItem," & item 2 of hz & quote & return & quote & "PictItem," & item 3 of hz & quote ¬& return & quote & "PictItem," & item 4 of hz & quote & return & quote & "PictItem," & item 5 of hz & quote & return & quote & "PictItem," & item 6 of hz & ¬quote into enc1put enc1 into crrput "PictItem,hidden" & return & "PictItem,,,,suivant1" & return & "PictItem,hidden,,,suivant2"¬& return & "chkCtrl,touchexit" & return & "PictItem,hidden" & return & enc1 into DLItemListelse put "PictItem,,,,suivant1" & return & "PictItem,hidden,,,suivant1" & return & ¬"PictItem,hidden,,,suivant2" & return & "chkCtrl,touchexit" & return & "PictItem,hidden" ¬& return & "PictItem,hidden" & return & "PictItem,hidden" & return & "PictItem,hidden" ¬& return & "PictItem,hidden" & return & "PictItem,hidden" & return & "PictItem,hidden" into DLItemListget ModalDialog("à propos de",DLItemList,X,Y,default)end kwad9on auditionglobal partitionif the commandkey is down then put "oui" into chmpelse put "" into chmpif "oui" is in chmpthenif fld monéchiquier2 = ""thenanswer "Il n'y a aucun enregistrement à écouter …" & return & return & "Composez d'abord un air au clavier (soit de la palette musicale, soit du Mac, avec les deux rangées de touches supérieures), avant de pouvoir le réécouter."exit auditionelse put fld monéchiquier2 into quielseif partition = ""thenanswer "Il n'y a aucune musique à écouter …" & return & return & "Composez d'abord un air au clavier (soit de la palette musicale, soit du Mac, avec les deux rangées de touches supérieures), avant de pouvoir le réécouter."exit auditionelse put partition into quiend ifif chp ≠ "" then ask "Avec quel son souhaitez-vous réécouter l'enregistrement ?" with "Harpsichord Boing"else ask "Avec quel son souhaitez-vous réécouter la musique jouée ?" with "Harpsichord Boing"put word 1 of it into monsonif the result = cancel or it = ""then exit auditionelseput the number of items of qui into cd fld tempsrepeat with a = 1 to the number of items of quiplay stopplay monson tempo 60 word 1 of item a of quiif the mouseclickthenplay stopput "- - . - - . - -" into cd fld tempsexit auditionend ifwait until the sound is "done"subtract 1 from cd fld tempsend repeatrepeat 4put "Terminé" into cd fld tempswait 8 ticksput "" into cd fld tempsend repeatput "- - . - - . - -" into cd fld tempsend ifend auditionon fixationglobal partitionif partition = ""thenanswer "Il n'y a aucune musique à enregistrer …" & return & return & "Composez d'abord un air au clavier (soit de la palette musicale, soit du Mac, avec les deux rangées de touches supérieures), avant une nouvelle tentative d'enregistrement."exit fixationelseput partition after fld "monéchiquier2"repeat 4put "Enregistré" into cd fld tempswait 8 ticksput "" into cd fld tempsend repeatput "- - . - - . - -" into cd fld tempsend ifend fixationon exécutionif fld "monéchiquier2" = ""thenanswer "Il n'y a aucun enregistrement à transformer en mosaïque …" & return & return & "Composez d'abord un air au clavier (soit de la palette musicale, soit du Mac, avec les deux rangées de touches supérieures), puis enregistrez-le au moyen du bouton rouge de la palette."exit exécutionelseanswer "L'opération de création musicale d'une mosaïque ne peut être interrompue …" & return & return & "Voulez-vous lancer cette opération à présent ?" ¬with "Annuler" or "OK"if it is "annuler" then exit exécutionif there is a window "clavier"then palette "clavier","20,378"set style of btn quitter to opaqueset the cantpeek of this stack to trueset the cantabort of this stack to trueput the number of items of fld monéchiquier2 into cd fld tempsrepeat with a = 1 to the number of items of fld monéchiquier2keydown numtochar (line (word 2 of item a of fld monéchiquier2) of cd fld touches)subtract 1 from cd fld tempsend repeatrepeat 4put "Terminé" into cd fld tempswait 8 ticksput "" into cd fld tempsend repeatput "- - . - - . - -" into cd fld tempsset style of btn quitter to transparentpalette "clavier","20,235"end ifend exécutionon destructionglobal partitionif the commandkey is down then put "oui" into chpaussiif chpaussi = "oui"thenif fld monéchiquier2 = ""thenanswer "Il n'y aucun enregistrement à effacer …" & return & return & "Composez d'abord un air au clavier (soit de la palette musicale, soit du Mac, avec les deux rangées de touches supérieures), avant une nouvelle tentative d'effacement."exit destructionelseanswer "Veuillez confirmer le double effacement de la partition en mémoire vive et de l'enregistrement …" with "Annuler" or "OK"if it is "annuler"then exit destructionelseput "" into fld monéchiquier2put "" into partitionend ifend ifelseif partition = ""thenanswer "Il n'y a rien à effacer en mémoire vive …" & return & return & "Composez d'abord un air au clavier (soit de la palette musicale, soit du Mac, avec les deux rangées de touches supérieures), avant une nouvelle tentative d'effacement."exit destructionelseanswer "Veuillez confirmer l'effacement de la seule mémoire vive …" with "Annuler" or "OK"if it is "annuler"then exit destructionelseput "" into partitionend ifend ifend ifrepeat 4put "Effacé" into cd fld tempswait 8 ticksput "" into cd fld tempsend repeatput "- - . - - . - -" into cd fld tempsend destructionon restaurerset cursor to watchlock screenactualiser couleurssend direct && char 1 of word 2 of menuitem 1 of menu 5 to btn id 294if the checkmark of menuitem 3 of menu 5 is truethen set the checkmark of menuitem 3 of menu 5 to falseelse set the checkmark of menuitem 3 of menu 5 to truesend aveugle to btn id 230if the checkmark of menuitem 5 of menu 5 is truethenput word 2 of menuitem 5 of menu 5 into cd fld coupsput word 2 of menuitem 5 of menu 5 into cd fld décompteelseput "- -" into cd fld coupsput line 1 of cd fld décompte into line 2 of cd fld décompteend ifif the checkmark of menuitem 7 of menu 5 is falsethenget script of card 2put "-- on idle" into line 1 of itset script of card 2 to itput "- - . - - . - -" into cd fld temps of card 2elseget script of card 2put "on idle" into line 1 of itset script of card 2 to itput word 2 of menuitem 7 of menu 5 into cd fld chronomètreend ifif the checkmark of menuitem 4 of menu 5 is truethen set style of btn bonusmalus to transparentelse set style of btn bonusmalus to opaquesend réactiver to btn bonusmalusif the checkmark of menuitem 6 of menu 5 is truethen set style of btn "inversion" to transparentelse set style of btn "inversion" to opaquesend activer to btn "inversion"put "" into cd fld couleursend restaureron sauvejeuglobal rejeu,fichrejeuset cursor to watchif "interrompre" is in menu 2 or "interrompre" is in menu 3thenif cd fld solution = "" or item 1 to 49 of line 1 of cd fld solution = ",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,"thenanswer "Il n'y a rien à sauvegarder …" & return & return & "Dessinez d'abord une mosaïque sur le grand damier."exit sauvejeuend ifask "Sous quel nom voulez-vous enregistrer votre fichier de sauvegarde ?"if it is empty or the result = cancel then exit sauvejeuelseput cd fld rejouer into cd fld suspendresauveconduitsopen file itwrite cd fld rejouer to file itclose file itput cd fld suspendre into cd fld rejouerput "" into cd fld suspendreend ifelse if "interrompre" is not in menu 2 and "interrompre" is not in menu 3thenask "Quel fichier de sauvegarde voulez-vous charger ?"if it is empty or the result = cancel then exit sauvejeuelseput it into fichopen file fichread from file fich for 32000close file fichif it = ""thenbeepanswer "Le fichier de sauvegarde «" & fich & "» est vide …" & return & return & "Chargement annulé."else if word 1 of line 1 of it is not in "jouercréer" and word 1 of line 2 of it is not in "123456" ¬and the number of items of line 4 of it < 48 and "à" is not in line 16 of it & ":" is not in line 16 of itthenbeepanswer "Les données du fichier de sauvegarde «" & fich & "» sont inutilisables …" & return & return & "Chargement annulé."elseput cd fld rejouer into cd fld suspendreput "Ouverture" into cd fld tempslock screenput it into cd fld rejouerset cursor to watchput "oui" into rejeutransitoire couleursunlock screenif "jouer" is in line 1 of cd fld rejouer then send ssbruit to btn cloneelse send ssbruit to btn sosieput cd fld rejouer into fichrejeuput cd fld suspendre into cd fld rejouerput "" into cd fld suspendreend ifend ifend ifend sauvejeuon sauvegarderglobal quelledir,poubif cd fld sauver = "" or "oui" is in poubthenput "" into poubanswer "Veuillez confirmer l'enregistrement des nouveaux réglages du menu «Préférences»." with "Annuler" or "OK"if it is "annuler"thenexit sauvegarderelseput "" into cd fld sauverset cursor to busytransitoire sauverput cd fld notes into line 50 of cd fld sauverput cd fld touches into line 100 of cd fld sauverput "Réglages personnalisés…" into menuitem 10 of menu 2 with menumessages sauvegarderset the checkmark of menuitem 10 of menu 2 to truerepeat 4put "Terminé" into cd fld tempswait 6 ticksput "" into cd fld tempsend repeatput "- - . - - . - -" into cd fld tempsend ifelseput "" into poubanswer "Quels réglages souhaitez-vous enregistrer dans le menu «Préférences» ?" with "Annuler" or "Par défaut" or "Nouveaux"if it is "annuler"thenexit sauvegarderelseput "oui" into poubput "" into cd fld suspendreif it is "par défaut"thenanswer "Veuillez confirmer l'enregistrement des réglages par défaut du menu «Préférences»." with "Annuler" or "OK"if it is "annuler"thenexit sauvegarderelseset cursor to busyput "" into cd fld sauverput "" into quelledirlock screennetchangermenusaffichageshow btn 1unlock screenput "" into poubplay stopend ifelsesauvegarderend ifend ifend ifend sauvegarderon config v,w,x,yif the commandkey is downthenlock screenif "card" is in short name of btn id x then put colorPicker("Choisissez une couleur… ","",line w of cd fld sauver) into maCouleurelse put colorPicker("Choisissez une couleur… ","",short name of btn id x) into maCouleurif macouleur = "" then exit configcolorizeHC "colorFill",rect of btn id x,macouleurcolorizeHC "colorFill",rect of btn id y,macouleurunlock screenset name of btn id x to macouleurelse if the optionkey is downthenget the secondsif showname of btn id v is true then put "masquer" into brelse put "afficher" into brwait 8 ticksif the mouseclickthenput " le nom des trois boutons ?" after brelseput " le nom de ce bouton ?" after brend ifanswer "Voulez-vous" && br with "Annuler" or "OK"if it is "annuler" then exit configelseif masquer is in brthenif "trois" is in brthenset showname of btn "compt" to falseset showname of btn "niveau" to falseset showname of btn "chrono" to falseelse set showname of btn id v to falseelseif "trois" is in brthenset showname of btn "chrono" to trueset showname of btn "niveau" to trueset showname of btn "compt" to trueelse set showname of btn id v to trueend ifend ifend ifend configon quellenote36pianote 36,"12 15"end quellenote36on quellenote38pianote 38,16end quellenote38on quellenote40pianote 40,17end quellenote40on quellenote41pianote 41,13end quellenote41on quellenote43pianote 43,14end quellenote43on quellenote45pianote 45,10end quellenote45on quellenote47pianote 47,11end quellenote47on quellenote48pianote 48,"12 15"end quellenote48on quellenote50pianote 50,16end quellenote50on quellenote52pianote 52,17end quellenote52on quellenote53pianote 53,13end quellenote53on quellenote55pianote 55,14end quellenote55on quellenote57pianote 57,10end quellenote57on quellenote59pianote 59,11end quellenote59on quellenote60pianote 60,"12 17"end quellenote60on quellenote62pianote 62,16end quellenote62on quellenote64pianote 64,17end quellenote64on quellenote65pianote 65,13end quellenote65on quellenote67pianote 67,14end quellenote67on quellenote69pianote 69,10end quellenote69on quellenote71pianote 71,11end quellenote71on quellenote72pianote 72,"12 17"end quellenote72on quellenote74pianote 74,16end quellenote74on quellenote76pianote 76,17end quellenote76on quellenote77pianote 77,13end quellenote77on quellenote79pianote 79,14end quellenote79on quellenote81pianote 81,10end quellenote81on quellenote83pianote 83,11end quellenote83on ijogisuntofatiglobal lavar,dest,ladir,libre,combien,antérset cursor to watchput "1" into désrepeatadd random (6) to désif dés ≠ lavar and dés ≠ dest and dés ≠ 1 and dés < 9 then exit repeatput 1 into désend repeatput 7 into chutput "6 8" into colput "0" into fsjetdésrepeat chutset icon of btn dés to "D" & random (6)if fs > 0 then set icon of btn dés1 to ""if "bois" is not in short name of btn id 278then wait 5 ticksput dés into dés1if dés = 9 or dés = 16 or dés = 23 or dés = 30 or dés = 37 or dés = 44then add 8 to déselse if dés = 15 or dés = 22 or dés = 29 or dés = 36 or dés = 43 or dés = 50then add 6 to déselse add word random (2) of col to désif dés = destthenif dés = 9 or dés = 16 or dés = 23 or dés = 30 or dés = 37 or dés = 44then add 2 to déselse if dés = 15 or dés = 22 or dés = 29 or dés = 36 or dés = 43 or dés = 50then subtract 2 from déselseput "-1 1" into cnadd word random (2) of cn to désend ifend ifadd 1 to fsend repeatset icon of btn dés1 to ""set icon of btn dés to ""if (the number of chars of line 1 of cd fld solution < 57 and last word of short name of btn id 294 is in "1245") ¬or (the number of chars of line 1 of cd fld solution < 71 and last word of short name of btn id 294 = 3) ¬or (the number of chars of line 1 of cd fld solution < 92 and last word of short name of btn id 294 = 6)then exit ijogisuntofatiput random (50) - random (9) into tirget the long timeif last char of it is in "03579" and last char of lavar is in tir & tir & tir - 25 & tir +12thenanswer "Choisissez …" with "Pile" or "Base"put random (2) into tournif tourn = 1thenif icon of btn id 269 = "0"thenplay stopplay clochesend ifrepeat 4put "BONUS" into cd fld tempswait 10 ticksput "" into cd fld tempsend repeatput "- - . - - . - -" into cd fld tempssend voyant to btn jouerrepeat 2lock screencolorizeHC "add","barrevoyantsal","381,144"unlock screenlock screencolorizeHC "add","barrevoyantsét","381,142"unlock screenend repeatlock screenif antér ≠ "" then colorizeHC "add",item 1 of antér,item 2 to 3 of antérunlock screenput "oui" into libreput random (25) into combien1put "Bonus " & combien1 into cd fld tempsif combien1 = 1 then put "COUP" into plurelse put "COUPS" into pluranswer "Cliquez sur un témoin lumineux (avant chaque déplacement si besoin) pour obtenir, pendant " & combien1 && plur & ", " ¬& "la couleur correspondante dans toutes les directions."if combien ≠ ""thenput combien1 & "+" & combien & "=" & (combien1 + combien) into cd fld tempsput combien1+combien into combienelse put combien1 into combienwait 2 secondsput "- - . - - . - -" into cd fld tempselseget cd fld solutionrepeat with a = 1 to the number of items of itif item a of it = "" or a+1 = dest or a+1 = lavar then next repeatput a & " " after ajoend repeatif icon of btn id 269 = "0"thenplay stopplay perduend ifrepeat 4put "MALUS" into cd fld tempswait 20 ticksput "" into cd fld tempsend repeatput "- - . - - . - -" into cd fld tempsput random (the number of words of ajo) into quelput (word quel of ajo)+1 into désdelete word quel of ajoput 0 into mlcpput random (the number of words of ajo)-1 into nbfsif last word of short name of btn id 294 ≥ 3 then put the trunc of (nbfs/2) into nbfsif nbfs ≤ 0 then put 1 into nbfsrepeat nbfsadd 1 to mlcpif style of btn id 278 = opaquethen put short name of btn dés into nomenelse put "" into nomenset name of btn dés to " "set icon of btn dés to bombeif icon of btn id 269 = "0"thenplay stopplay explosionend ifput "M. : " & "- " & mlcp into cd fld tempslock screencolorizeHC "add","btnN4",rect of btn désset icon of btn dés to ""if "(symb.)" is in menu 5 and last word of short name of btn id 294 is in "1245" then set name of btn dés to ""else set name of btn dés to nomenunlock screenput "" into item (dés)-1 of cd fld solutionput random (the number of words of ajo) into quelput (word quel of ajo)+1 into désdelete word quel of ajoend repeatput "Total M. " & mlcp into cd fld tempswait 2 secondsput "- - . - - . - -" into cd fld tempsend ifend ifend ijogisuntofation pourrejouerglobal psto,lavar,dest,rejeuif (cd fld solution = "" or item 1 to 49 of line 1 of cd fld solution = ",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,") and cd fld rejouer = ""thenanswer "Il n'y a rien à sauvegarder …" & return & return & "Dessinez d'abord une mosaïque sur le grand damier."exit pourrejouerend ifif cd fld rejouer = ""thenanswer "Voulez-vous conserver le jeu en l'état pour une reprise ultérieure ?" with "Annuler" or "OK"if it is "annuler"thenexit pourrejouerend ifelseif style of btn jouer = transparent and style of btn créer = transparentthenanswer "Que voulez-vous faire de la partie sauvegardée le " & return & return & line 16 of cd fld rejouer & " ?" with "Annuler" or "Effacer" or "Reprendre"if it is "annuler" then exit pourrejouerelse if it is "effacer"thenanswer "Veuillez confirmer l'effacement de la partie sauvegardée le " & line 16 of cd fld rejouer & " …" with "Annuler" or "OK"if it is "annuler" then exit pourrejouerelse if it is "OK"thenpurgationexit pourrejouerend ifelse if it is "reprendre"thenput "Ouverture" into cd fld tempsset cursor to watchput "oui" into rejeutransitoire couleursif "jouer" is in line 1 of cd fld rejouer then send ssbruit to btn cloneelse send ssbruit to btn sosieexit pourrejouerend ifelseanswer "Que voulez-vous faire de la partie sauvegardée le " & return & return & line 16 of cd fld rejouer & " ?" with "Annuler" or "Effacer" or "Remplacer"if it is "annuler" then exit pourrejouerelse if it is "effacer"thenanswer "Veuillez confirmer l'effacement de la partie sauvegardée le " & line 16 of cd fld rejouer & " …" with "Annuler" or "OK"if it is "annuler" then exit pourrejouerelse if it is "OK"thenpurgationexit pourrejouerend ifend ifend ifend ifsauveconduitsend pourrejoueron sauveconduitsglobal psto,lavar,dest,rejeu,fich,annul,kalei,annulkalei,annulkalei2,unpostinv,quelledir,libre,combien,alea,annulkaleimémo,BATset cursor to watchif the checkmark of menuitem 4 of menu 5 is true and the enabled of menuitem 4 of menu 5 = true and libre ≠ "" and combien ≠ ""thenquelkaleiput kalei into annulkaleiif annulkaleimémo ≠ "" then put annulkaleimémo into annulkalei2end ifif dest = "" then put short name of btn id 142 into macposelse put dest into macposif last word of short name of btn id 294 = 6 then put BAT & "," & fld formes into motelse put BAT into motif the visible of btn "jouer1" is truethenput "créer" & return & last word of short name of btn id 294 & return & return & mot & return & lavar && macpos & return & return & return ¬& word 1 of cd fld coups & return & return & return into cd fld rejouerelseput "jouer" & return & last word of short name of btn id 294 & return & line 1 of cd fld combinaison & return & mot & return ¬& lavar && macpos & return & return & return & return & return & return into cd fld rejouerif the checkmark of menuitem 3 of menu 5 is truethen put "true" & return after cd fld rejouerelse put "false" & return after cd fld rejouerif the checkmark of menuitem 4 of menu 5 is truethen put "true," & icon of btn "enregistrer" & return after cd fld rejouerelse put "false," & icon of btn "enregistrer" & return after cd fld rejouerif the checkmark of menuitem 5 of menu 5 is truethen put "true" && line 1 of cd fld décompte && line 2 of cd fld décompte && line 1 of cd fld coups & return after cd fld rejouerelse put "false" & return after cd fld rejouerif the checkmark of menuitem 6 of menu 5 is truethen put "true" & return after cd fld rejouerelse put "false" & return after cd fld rejouerif the checkmark of menuitem 7 of menu 5 is truethenput "true" && line 1 of cd fld chronomètre after cd fld rejouerget the secondsput psto into écoulconvert écoul to secondssubtract écoul from itconvert it to long timeput " " & it & return after cd fld rejouerelseput "false" & return after cd fld rejouerend ifend ifput the long date & "," && "à" && the time into line 16 of cd fld rejouerput kalei & "," & annulkalei & "," & annulkalei2 & "," & unpostinv & "," & quelledir & "," & alea & return & annul into line 50 of cd fld rejouerset the checkmark of menuitem 8 of menu 2 to trueput "Partie sauvegardée…" into menuitem 8 of menu 2 with menumessages pourrejouerset commandchar of menuitem 8 of menu 2 to "S"if style of btn jouer = "transparent" and style of btn créer = "transparent"then disable menuitem 8 of menu 2else enable menuitem 8 of menu 2repeat 4put "Terminé" into cd fld tempswait 6 ticksput "" into cd fld tempsend repeatput "- - . - - . - -" into cd fld tempsend sauveconduitson purgationset cursor to watchput "" into cd fld rejouerput "Sauvegarder…" into menuitem 8 of menu 2 with menumessages pourrejouerset commandchar of menuitem 8 of menu 2 to "S"if "interrompre" is not in menu 2 and "interrompre" is not in menu 3 then disable menuitem 8 of menu 2else enable menuitem 8 of menu 2repeat 4put "Terminé" into cd fld tempswait 6 ticksput "" into cd fld tempsend repeatput "- - . - - . - -" into cd fld tempsend purgation</script>
</part>
<part>
<id>199</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>487</left>
<top>0</top>
<right>499</right>
<bottom>12</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>combinaison</name>
<script></script>
</part>
<part>
<id>200</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>500</left>
<top>0</top>
<right>512</right>
<bottom>12</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>solution</name>
<script></script>
</part>
<part>
<id>202</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>383</left>
<top>145</top>
<right>404</right>
<bottom>159</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Vvert</name>
<script>on mouseUpif the checkmark of menuitem 4 of menu 5 = false or visible of btn "jouer1" is true then exit mouseupperso voyantvert,item 1 to 2 of rect of me,VERTE,8,"V V V V V V V V"end mouseUpon mouseenterglobal libre,combienif the checkmark of menuitem 4 of menu 5 is true and the enabled of menuitem 4 of menu 5 = true and libre ≠ "" and combien ≠ "" ¬and last word of short name of btn id 294 is in "36"then send voyant to btn jouerend mouseenteron mouseleaveglobal libre,combienif the checkmark of menuitem 4 of menu 5 is true and the enabled of menuitem 4 of menu 5 = true and libre ≠ "" and combien = ""then set hilite of me to trueend mouseleave</script>
</part>
<part>
<id>203</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>403</left>
<top>145</top>
<right>423</right>
<bottom>159</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Vjaune</name>
<script>on mouseUpif the checkmark of menuitem 4 of menu 5 = false or visible of btn "jouer1" is true then exit mouseupperso voyantjaune,item 1 to 2 of rect of me,JAUNE,2,"J J J J J J J J"end mouseUpon mouseenterglobal libre,combienif the checkmark of menuitem 4 of menu 5 is true and the enabled of menuitem 4 of menu 5 = true and libre ≠ "" and combien ≠ "" ¬and last word of short name of btn id 294 is in "36"then send voyant to btn jouerend mouseenteron mouseleaveglobal libre,combienif the checkmark of menuitem 4 of menu 5 is true and the enabled of menuitem 4 of menu 5 = true and libre ≠ "" and combien = ""then set hilite of me to trueend mouseleave</script>
</part>
<part>
<id>204</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>423</left>
<top>145</top>
<right>444</right>
<bottom>159</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Vorange</name>
<script>on mouseUpif the checkmark of menuitem 4 of menu 5 = false or visible of btn "jouer1" is true then exit mouseupperso voyantorange,item 1 to 2 of rect of me,ORANGE,4,"O O O O O O O O"end mouseUpon mouseenterglobal libre,combienif the checkmark of menuitem 4 of menu 5 is true and the enabled of menuitem 4 of menu 5 = true and libre ≠ "" and combien ≠ "" ¬and last word of short name of btn id 294 is in "36"then send voyant to btn jouerend mouseenteron mouseleaveglobal libre,combienif the checkmark of menuitem 4 of menu 5 is true and the enabled of menuitem 4 of menu 5 = true and libre ≠ "" and combien = ""then set hilite of me to trueend mouseleave</script>
</part>
<part>
<id>195</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>384</left>
<top>184</top>
<right>468</right>
<bottom>208</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpsend mouseup to btn "chrono"end mouseUp</script>
</part>
<part>
<id>205</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>443</left>
<top>145</top>
<right>464</right>
<bottom>159</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Vrouge</name>
<script>on mouseUpif the checkmark of menuitem 4 of menu 5 = false or visible of btn "jouer1" is true then exit mouseupperso voyantrouge,item 1 to 2 of rect of me,ROUGE,6,"R R R R R R R R"end mouseUpon mouseenterglobal libre,combienif the checkmark of menuitem 4 of menu 5 is true and the enabled of menuitem 4 of menu 5 = true and libre ≠ "" and combien ≠ "" ¬and last word of short name of btn id 294 is in "36"then send voyant to btn jouerend mouseenteron mouseleaveglobal libre,combienif the checkmark of menuitem 4 of menu 5 is true and the enabled of menuitem 4 of menu 5 = true and libre ≠ "" and combien = ""then set hilite of me to trueend mouseleave</script>
</part>
<part>
<id>206</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>463</left>
<top>145</top>
<right>483</right>
<bottom>159</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Vmauve</name>
<script>on mouseUpif the checkmark of menuitem 4 of menu 5 = false or visible of btn "jouer1" is true then exit mouseupperso voyantmauve,item 1 to 2 of rect of me,MAUVE,"7 3","M M M M M M M M"end mouseUpon mouseenterglobal libre,combienif the checkmark of menuitem 4 of menu 5 is true and the enabled of menuitem 4 of menu 5 = true and libre ≠ "" and combien ≠ "" ¬and last word of short name of btn id 294 is in "36"then send voyant to btn jouerend mouseenteron mouseleaveglobal libre,combienif the checkmark of menuitem 4 of menu 5 is true and the enabled of menuitem 4 of menu 5 = true and libre ≠ "" and combien = ""then set hilite of me to trueend mouseleave</script>
</part>
<part>
<id>207</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>483</left>
<top>145</top>
<right>495</right>
<bottom>158</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Vbleu</name>
<script>on mouseUpif the checkmark of menuitem 4 of menu 5 = false or visible of btn "jouer1" is true then exit mouseupperso voyantbleu,item 1 to 2 of rect of me,BLEUE, "1 9","B B B B B B B B"end mouseUpon mouseenterglobal libre,combienif the checkmark of menuitem 4 of menu 5 is true and the enabled of menuitem 4 of menu 5 = true and libre ≠ "" and combien ≠ "" ¬and last word of short name of btn id 294 is in "36"then send voyant to btn jouerend mouseenteron mouseleaveglobal libre,combienif the checkmark of menuitem 4 of menu 5 is true and the enabled of menuitem 4 of menu 5 = true and libre ≠ "" and combien = ""then set hilite of me to trueend mouseleave</script>
</part>
<part>
<id>217</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>428</left>
<top>311</top>
<right>453</right>
<bottom>336</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Aide</name>
<script>on mouseUpglobal cartaidwait 8 ticksif the mouseclickthenlock screencolorizeHC "add","btnaidealvert",item 1 to 2 of rect of meunlock screenput the trunc of ((item 3 of the screenrect-496)/2) into Xput the trunc of ((item 4 of the screenrect-324)/2) into Yput "pictitem,touchexit" & return & "PictItem,,,,montrer1" & return & "pictitem,touchexit" & return & "pictitem,hidden,,,montrer2" into DLItemListget ModalDialog("mémo",DLItemList,X,Y,default)if "aide mosaïcon" is not in the stacksthenlock screencolorizeHC "add","btnaideét",item 1 to 2 of rect of btn id 217unlock screenend ifexit mouseupend iflock screencolorizeHC "add","btnaidealvert",item 1 to 2 of rect of meunlock screenif icon of btn id 269 = "0"thenplay stopplay ptclicend ifset the checkmark of menuitem 1 of menu 4 to trueset cursor to busyif "aide mosaïcon" is in line 2 to (the number of lines of the stacks) of the stacks then go card cartaid of stack "aide mosaïcon"else go stack "aide Mosaïcon" in a new windowif the result = "cancel" then échecend mouseUpon échecset the checkmark of menuitem 1 of menu 4 to falselock screencolorizeHC "add","btnaideét",item 1 to 2 of rect of btn id 217unlock screenend échec</script>
</part>
<part>
<id>218</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>460</left>
<top>226</top>
<right>498</right>
<bottom>247</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Plus</name>
<script>on mousedownglobal niv,psto,faitplus,letour,paralput "un deux trois quatre cinq sis" into paralif style of btn "créer" = opaque or style of btn "jouer" is opaque or icon of me = 29812then exit mousedownif icon of btn id 269 = "0" then play stoplock screencolorizeHC "add","btnplusal","(item 1 of rect of btn plus)+1,(item 2 of rect of btn plus)+1"unlock screenif psto ≠ "" then exit mousedownif (last word of short name of btn id 294)+1 = 7thenset icon of btn id 294 to "un"set name of btn id 294 to "Niveau" && 1elseset icon of btn id 294 to word (last word of short name of btn id 294)+1 of paralset name of btn id 294 to "Niveau" && (last word of short name of btn id 294)+1end ifwait 15 ticksrepeat until the mouse is upif psto ≠ "" then exit mousedownif (last word of short name of btn id 294)+1 = 7thenset icon of btn id 294 to "un"set name of btn id 294 to "Niveau" && 1elseset icon of btn id 294 to word (last word of short name of btn id 294)+1 of paralset name of btn id 294 to "Niveau" && (last word of short name of btn id 294)+1end ifwait 15 ticksend repeatput short name of btn id 294 & "…" into menuitem 1 of menu 5 with menumessages "niveau"lock screencolorizeHC "add","btnplusét",item 1 to 2 of rect of btn plusunlock screenif the seconds - letour > 2 then put "oui" into faitplusend mousedownon mouseUpglobal psto,déb,fin,paralif style of btn "créer" = opaque or style of btn "jouer" = opaquethenif textstyle of btn "compt" = "bold,condense"thenlock screencolorizeHC "add","btnplusal","(item 1 of rect of btn plus)+1,(item 2 of rect of btn plus)+1"unlock screenget cd fld coupsput line 1 of cd fld décompte into cd fld coupswait 1 secondsput it into cd fld coupselse if textstyle of btn "chrono" = "bold,condense"thenlock screencolorizeHC "add","btnplusal","(item 1 of rect of btn plus)+1,(item 2 of rect of btn plus)+1"unlock screenif the commandkey is downthenget cd fld tempsput line 1 of cd fld chronomètre & " '" into cd fld tempswait 1 secondsput it into cd fld tempselseget cd fld tempsput fin into cd fld tempswait 1 secondsput it into cd fld tempsend ifend iflock screencolorizeHC "add","btnplusét",item 1 to 2 of rect of btn plusunlock screenelseif (style of btn "compt" = transparent and style of btn "chrono" = transparent) ¬and (style of btn "créer" = opaque or style of btn "jouer" is opaque) or icon of me = 29812thenset hilite of me to trueset hilite of me to falseexit mouseupend ifif the checkmark of menuitem 3 of menu 5 = falsethenif last word of short name of btn id 294 is in "36"then set icon of btn position to "croix2"else set icon of btn position to "croix"end ifend ifend mouseUp</script>
</part>
<part>
<id>219</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>383</left>
<top>226</top>
<right>422</right>
<bottom>246</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Moins</name>
<script>on mousedownglobal niv,psto,letour,paralput "un deux trois quatre cinq sis" into paralif style of btn "créer" = opaque or style of btn "jouer" is opaque or icon of me = 29812then exit mousedownif icon of btn id 269 = "0" then play stoplock screencolorizeHC "add","btnmoinsal","(item 1 of rect of btn moins)+1,(item 2 of rect of btn moins)+1"unlock screenif (last word of short name of btn id 294)-1 = 0thenset icon of btn id 294 to "sis"set name of btn id 294 to "Niveau" && 6elseset icon of btn id 294 to word (last word of short name of btn id 294)-1 of paralset name of btn id 294 to "Niveau" && (last word of short name of btn id 294)-1end ifwait 15 ticksif psto ≠ "" then exit mousedownrepeat until the mouse is upif (last word of short name of btn id 294)-1 = 0thenset icon of btn id 294 to "sis"set name of btn id 294 to "Niveau" && 6elseset icon of btn id 294 to word (last word of short name of btn id 294)-1 of paralset name of btn id 294 to "Niveau" && (last word of short name of btn id 294)-1end ifwait 15 ticksend repeatput short name of btn id 294 & "…" into menuitem 1 of menu 5 with menumessages "Niveau"lock screencolorizeHC "add","btnmoinsét",item 1 to 2 of rect of btn moinsunlock screenend mousedownon mouseUpglobal chrono,déb,psto,fin,euréka,reste,niv,paralif style of btn "créer" = opaque or style of btn "jouer" = opaquethenif textstyle of btn "compt" = "bold,condense"thenlock screencolorizeHC "add","btnmoinsal","(item 1 of rect of btn moins)+1,(item 2 of rect of btn moins)+1"unlock screenget cd fld coupsput line 1 of cd fld décompte - line 2 of cd fld décompte into cd fld coupswait 1 secondsput it into cd fld coupselse if textstyle of btn "chrono" = "bold,condense"thenlock screencolorizeHC "add","btnmoinsal","(item 1 of rect of btn moins)+1,(item 2 of rect of btn moins)+1"unlock screenif the commandkey is downthenput cd fld temps into tpsget the secondsconvert it to secondsput psto into écoulconvert écoul to secondsconvert it-écoul to long timeput it into cd fld tempswait 1 secondsput tps into cd fld tempselseget cd fld tempsput psto into cd fld tempswait 1 secondsput it into cd fld tempsend ifend iflock screencolorizeHC "add","btnmoinsét",item 1 to 2 of rect of btn moinsunlock screenelseif (style of btn "compt" = transparent and style of btn "chrono" = transparent) ¬and (style of btn "créer" = opaque or style of btn "jouer" is opaque) or icon of me = 29812thenset hilite of me to trueset hilite of me to falseexit mouseupend ifif the checkmark of menuitem 3 of menu 5 = falsethenif last word of short name of btn id 294 is in "36"then set icon of btn position to "croix2"else set icon of btn position to "croix"end ifend ifend mouseUp</script>
</part>
<part>
<id>223</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>382</left>
<top>340</top>
<right>406</right>
<bottom>362</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>ÀBase</name>
<script>on mouseupwait 6 ticksif the mouseclickthenbeepanswer "Voulez-vous désactiver le message d'alerte de ce bouton ?" with "Annuler" or "OK"if it is "annuler" then exit mouseupelseget script of meput "-- on mouseup" into line 1 of itset script of me to itrepeat 4put "Désactivé" into cd fld tempswait 4 ticksput "" into cd fld tempsend repeatput "- - . - - . - -" into cd fld tempsend ifexit mouseupend ifif icon of btn id 269 = "0"thenplay stopplay ptclicend ifanswer "Veuillez confirmer l'instruction : " & return & return & "«Aller à la pile Base»." & return & return with "Annuler" or "OK"if it is "annuler" then exit mouseupsanssonend mouseUpon mouseUpwait 6 ticksif the mouseclickthenbeepanswer "Voulez-vous activer le message d'alerte de ce bouton ?" with "Annuler" or "OK"if it is "annuler" then exit mouseupelseget script of meput "on mouseup" into line 1 of itset script of me to itrepeat 4put "Activé" into cd fld tempswait 4 ticksput "" into cd fld tempsend repeatput "- - . - - . - -" into cd fld tempsexit mouseupend ifend ifif icon of btn id 269 = "0"thenplay stopplay ptclicend ifsanssonend mouseUpon sanssongo homeend sanssonon curseurglobal lavar,dest,quelledir,modalresult,numal,ssclr,kaleiif visible of btn 1 is false then exit curseurset cursor to busyput 5 into numalput the trunc of ((item 3 of the screenrect-460)/2) into Xput the trunc of ((item 4 of the screenrect-130)/2) into Yput "btnctrl,touchexit" & return & "btnctrl,touchexit" & return &¬"PictItem" & return & "editText,,Choisissez un curseur …" & return & ¬"RadCtrl,,1,1,gyro1" & return & "RadCtrl,,0,1,gyro2" & return & "RadCtrl,,0,1,gyro3" & return &¬"RadCtrl,,0,1,gyro4" & return & "RadCtrl,,0,1,gyro5" & return & "RadCtrl,,0,1,gyro6" & return & ¬"PictItem" & return & "PictItem" & return & ¬"PictItem" & return & "PictItem" & return &¬"PictItem" & return & "PictItem" & return & ¬"PictItem,hidden" & return & "PictItem,hidden" & return &¬"PictItem,hidden" & return & "PictItem,hidden" & return &¬"PictItem,hidden" & return & "PictItem,hidden" & return &¬"PictItem,hidden" & return & "PictItem,hidden" & return & "PictItem,hidden" & return &¬"PictItem,hidden" & return & "PictItem,hidden" & return &¬"PictItem,hidden" & return & "PictItem,hidden" & return &¬"PictItem,hidden" & return & "PictItem,hidden" & return & "PictItem,hidden" & return &¬"PictItem,hidden" & return & "PictItem,hidden" & return &¬"PictItem,hidden" & return & "PictItem,hidden" & return &¬"PictItem,hidden" & return & "PictItem,hidden" & return & "PictItem,hidden" & return &¬"PictItem,hidden" & return & "PictItem,hidden" & return &¬"PictItem,hidden" & return & "PictItem,hidden" & return &¬"PictItem,hidden" & return & "PictItem,hidden" & return & "PictItem,hidden" & return &¬"PictItem,hidden" & return & "PictItem,hidden" & return &¬"PictItem,hidden" & return & "PictItem,hidden" & return &¬"PictItem,hidden" & return & "PictItem,hidden" & return & "PictItem,hidden" & return &¬"PictItem,hidden" & return & "PictItem,hidden" & return &¬"PictItem,hidden" & return & "PictItem,hidden" & return &¬"PictItem,hidden" & return & "PictItem,hidden" & return & "PictItem,hidden" & return &¬"PictItem,hidden" & return & "PictItem,hidden" & return &¬"PictItem,hidden" & return & "PictItem,hidden" & return &¬"PictItem,hidden" into DLItemListget ModalDialog("curseur",DLItemList,X,Y,default)put "" into numalif it = 2 then exit curseurrepeat with a = 5 to 10if line a of modalresult = 1thenput a into conservexit repeatend ifend repeatif conserv = "" then exit curseurset cursor to busyif line 1 of conserv = 5thenset name of btn 1 to "M128 1"put "Curseur : 1" into menuitem 10 of menu 5 with menumessages curseurelse if line 1 of conserv = 6thenset name of btn 1 to "Mplus 2"put "Curseur : 2" into menuitem 10 of menu 5 with menumessages curseurelse if line 1 of conserv = 7thenset name of btn 1 to "Mse 3"put "Curseur : 3" into menuitem 10 of menu 5 with menumessages curseurelse if line 1 of conserv = 8thenset name of btn 1 to "Mse30 4"put "Curseur : 4" into menuitem 10 of menu 5 with menumessages curseurelse if line 1 of conserv = 9thenset name of btn 1 to "Mcl 5"put "Curseur : 5" into menuitem 10 of menu 5 with menumessages curseurelse if line 1 of conserv = 10thenset name of btn 1 to "Mclr 6"put "Curseur : 6" into menuitem 10 of menu 5 with menumessages curseurend ifset cursor to 5lock screenput icon of btn 1 into icif ssclr = ""thenif (quelledir = "" or icon of btn 1 = venis)thencolorizehc "add",word 1 of short name of btn 1 & "1",rect of btn short name of btn id 142else if last word of short name of btn id 294 = 1 or item dest-1 of cd fld solution = "" ¬or (the number of words of item dest-1 of cd fld solution = 3 and last word of short name of btn id 294 = 3) ¬or ("v" is in last word of item dest-1 of cd fld solution and last word of short name of btn id 294 is in "123") ¬or ("v" is in last word of item dest-1 of cd fld solution and "3" is not in last word of item dest-1 of cd fld solution)thencolorizehc "add",word 1 of short name of btn 1 & last char of quelledir,rect of btn short name of btn id 142elsecolorizehc "add",word 1 of short name of btn 1 & last char of quelledir,rect of btn 1end ifelsecolorizehc "add",word 1 of short name of btn 1 & last char of quelledir,rect of btn 1end ifset icon of btn 1 to ""unlock screenwait 2 secondsif ic ≠ "" then set icon of btn 1 to icif quelledir ≠ "" then get last char of quelledirelse put 1 into itput word 1 of short name of btn 1 & it into quelledirend curseuron recruesglobal lavar,dest,quelledir,modalresult,numal,ssclr,kaleiif visible of btn 1 is false then exit recruesset cursor to busyput 5 into numalput the trunc of ((item 3 of the screenrect-460)/2) into Xput the trunc of ((item 4 of the screenrect-130)/2) into Yput "btnctrl,touchexit" & return & "btnctrl,touchexit" & return &¬"PictItem" & return & "editText,,Choisissez un curseur …" & return & ¬"RadCtrl,,1,1,gyro1" & return & "RadCtrl,,0,1,gyro2" & return & "RadCtrl,,0,1,gyro3" & return &¬"RadCtrl,,0,1,gyro4" & return & "RadCtrl,,0,1,gyro5" & return & "RadCtrl,,0,1,gyro6" & return & ¬"PictItem" & return & "PictItem" & return & ¬"PictItem" & return & "PictItem" & return &¬"PictItem" & return & "PictItem" & return & ¬"PictItem,hidden" & return & "PictItem,hidden" & return &¬"PictItem,hidden" & return & "PictItem,hidden" & return &¬"PictItem,hidden" & return & "PictItem,hidden" & return &¬"PictItem,hidden" & return & "PictItem,hidden" & return & "PictItem,hidden" & return &¬"PictItem,hidden" & return & "PictItem,hidden" & return &¬"PictItem,hidden" & return & "PictItem,hidden" & return &¬"PictItem,hidden" & return & "PictItem,hidden" & return & "PictItem,hidden" & return &¬"PictItem,hidden" & return & "PictItem,hidden" & return &¬"PictItem,hidden" & return & "PictItem,hidden" & return &¬"PictItem,hidden" & return & "PictItem,hidden" & return & "PictItem,hidden" & return &¬"PictItem,hidden" & return & "PictItem,hidden" & return &¬"PictItem,hidden" & return & "PictItem,hidden" & return &¬"PictItem,hidden" & return & "PictItem,hidden" & return & "PictItem,hidden" & return &¬"PictItem,hidden" & return & "PictItem,hidden" & return &¬"PictItem,hidden" & return & "PictItem,hidden" & return &¬"PictItem,hidden" & return & "PictItem,hidden" & return & "PictItem,hidden" & return &¬"PictItem,hidden" & return & "PictItem,hidden" & return &¬"PictItem,hidden" & return & "PictItem,hidden" & return &¬"PictItem,hidden" & return & "PictItem,hidden" & return & "PictItem,hidden" & return &¬"PictItem,hidden" & return & "PictItem,hidden" & return &¬"PictItem,hidden" & return & "PictItem,hidden" & return &¬"PictItem,hidden" into DLItemListget ModalDialog("recrues",DLItemList,X,Y,default)put "" into numalif it = 2 then exit recruesrepeat with a = 5 to 10if line a of modalresult = 1thenput a into conservexit repeatend ifend repeatif conserv = "" then exit recruesset cursor to busyif line 1 of conserv = 5thenset name of btn 1 to "M128 1"put "Curseur : 1" into menuitem 10 of menu 5 with menumessages curseurelse if line 1 of conserv = 6thenset name of btn 1 to "Mclb 2"put "Curseur : 2" into menuitem 10 of menu 5 with menumessages curseurelse if line 1 of conserv = 7thenset name of btn 1 to "Mse30b 3"put "Curseur : 3" into menuitem 10 of menu 5 with menumessages curseurelse if line 1 of conserv = 8thenset name of btn 1 to "Mplusb 4"put "Curseur : 4" into menuitem 10 of menu 5 with menumessages curseurelse if line 1 of conserv = 9thenset name of btn 1 to "Mclrb 5"put "Curseur : 5" into menuitem 10 of menu 5 with menumessages curseurelse if line 1 of conserv = 10thenset name of btn 1 to "M128b 6"put "Curseur : 6" into menuitem 10 of menu 5 with menumessages curseurend ifset cursor to 5lock screenput icon of btn 1 into icif ssclr = ""thenif (quelledir = "" or icon of btn 1 = venis)thencolorizehc "add",word 1 of short name of btn 1 & "1",rect of btn short name of btn id 142else if last word of short name of btn id 294 = 1 or item dest-1 of cd fld solution = "" ¬or (the number of words of item dest-1 of cd fld solution = 3 and last word of short name of btn id 294 = 3) ¬or ("v" is in last word of item dest-1 of cd fld solution and last word of short name of btn id 294 is in "123") ¬or ("v" is in last word of item dest-1 of cd fld solution and "3" is not in last word of item dest-1 of cd fld solution)thencolorizehc "add",word 1 of short name of btn 1 & last char of quelledir,rect of btn short name of btn id 142elsecolorizehc "add",word 1 of short name of btn 1 & last char of quelledir,rect of btn 1end ifelsecolorizehc "add",word 1 of short name of btn 1 & last char of quelledir,rect of btn 1end ifset icon of btn 1 to ""unlock screenwait 2 secondsif ic ≠ "" then set icon of btn 1 to icif quelledir ≠ "" then get last char of quelledirelse put 1 into itput word 1 of short name of btn 1 & it into quelledirend recrueson formeglobal dest,modalresult,tycput "" into tycset cursor to busyput 5 into numalput the trunc of ((item 3 of the screenrect-386)/2) into Xput the trunc of ((item 4 of the screenrect-222)/2) into Yput "btnctrl,touchexit" & return & "btnctrl,touchexit" & return &¬"PictItem" & return & "editText,,Choisissez un motif …" & return & ¬"RadCtrl,,1,1" & return & "RadCtrl,,0,1" & return & "RadCtrl,,0,1" & ¬return & "RadCtrl,,0,1" & return & "RadCtrl,,0,1" & return & ¬"RadCtrl,,0,1" & return & "RadCtrl,,0,1" & return & "RadCtrl,,0,1" ¬& return & "RadCtrl,,0,1" & return & "RadCtrl,,0,1" into DLItemListget ModalDialog("symboles",DLItemList,X,Y,default)put "" into numalif it = 2thenget handleitem(ctlvalue,23,0)elserepeat with a = 5 to 14if line a of modalresult = 1thenput a-4 into tycexit repeatend ifend repeatset cursor to watchend ifunlock screenend formeon choixsymbglobal dest,tycput "hdsfjklqmg" into figset cursor to busyput char tyc of fig into char dest of word 1 of item 50 of cd fld solutionput char tyc of fig into char dest of fld formesput "" into tycend choixsymbon affsymbglobal tycif tyc = "" then aleasymbelseput "hdsfjklqmg" into figput a into fld formesrepeat 50put char tyc of fig after fld formesend repeatend ifend affsymbon menusglobal bonjourlock screenif the number of this card = 1 then exit menusset cursor to watchreset menubarrepeat with a = 7 down to 2 --8delete menu aend repeatput "À propos de Mosaïcon…" into menuitem 1 of menu 1 with menumessages "Àproposde"create menu "Fichier"put "Nouvelle partie…,-,Ouvrir une pile...,Fermer la pile,-,Compacter la pile,-,Sauvegarder…,Charger sauvegarde…,Sauvegarder Préférences,-,Importer…,Exporter…,-,Quitter HyperCard" into menu 2 ¬with menumessages "jouer,empty,ouvrir,fermer,-,compacter,empty,pourrejouer,sauvejeu,sauvegarder,-,import,export,-,aurevoir"set commandchar of menuitem 1 of menu 2 to "N"set commandchar of menuitem 3 of menu 2 to "O"set commandchar of menuitem 4 of menu 2 to "W"set commandchar of menuitem 8 of menu 2 to "S"set commandchar of menuitem 15 of menu 2 to "Q"create menu "Édition"put "Annuler ,-,Dessiner une mosaïque…,Enregistrer la mosaïque…,Visualiser une mosaïque…,Supprimer une mosaïque…,Effacer la mosaïque…" into menu 3 ¬with menumessages "Annulation,empty,créer,enregistrer,analyser,supprimer,effacer"set commandchar of menuitem 1 of menu 3 to "Z"set commandchar of menuitem 3 of menu 3 to "D"set commandchar of menuitem 4 of menu 3 to "C"set commandchar of menuitem 5 of menu 3 to "V"set commandchar of menuitem 6 of menu 3 to "X"create menu "Accès"put "Aide ,Base ,-,Fenêtre suivante,Retour ,-,Afficher/masquer menus" into menu 4 ¬with menumessages "alleraide,allerbase,empty,autrepile,revenir,empty,barremenus"set commandchar of menuitem 1 of menu 4 to "?"set commandchar of menuitem 2 of menu 4 to "H"set commandchar of menuitem 4 of menu 4 to "L"set commandchar of menuitem 5 of menu 4 to "<"set commandchar of menuitem 7 of menu 4 to " "create menu "Préférences"put "Niveau 1…,-,Jeu en aveugle,Avec bonus/malus,En N coups…,Avec inversion,En N minutes…,-,Clignotement directions,Curseur : " ¬& word 2 to (the number of words of short name of btn 1) of short name of btn 1 & ",Damier/pièces…,Écran,Son…," ¬& "Touches…,-,Palette navigation,Palette musicale" into menu 5 ¬with menumessages "niveau,empty,aveugle,pénalités,compteur,verlan,minuterie,empty,Clignotement,curseur,Damier,écran," ¬& "son,clavier,empty,déplacer,musique"if cd fld suspendre ≠ ""thenset rect of card window to item 4 to 7 of line 12 of cd fld suspendreif visible of btn "jouer1" is truethendésactiver "1",2,trueenable menuitem 8 of menu 2désactiver "1 3 4 7",3,falsedésactiver "5",3,truedésactiver "1 3 4 5 6 7 11",5,trueenable menuitem 17 of menu 5put "Interrompre le dessin…" into menuitem 3 of menu 3 with menumessages "créer"set commandchar of menuitem 3 of menu 3 to "I"actualiser suspendreset icon of btn id 269 to item 4 of line 13 of cd fld suspendreelse if style of btn "jouer" = opaque and icon of btn créer = 29812thenput "Interrompre la partie…" into menuitem 1 of menu 2 with menumessages "jouer"set commandchar of menuitem 1 of menu 2 to "I"enable menuitem 8 of menu 2if last word of short name of btn id 294 > 3 then désactiver "1 3 5",3,trueelse désactiver "3 5","3",trueenable menuitem 7 of menu 3if icon of btn enregistrer = 29812 then disable menuitem 4 of menu 3désactiver "1 11 17",5,truedésactiver "3 4 5 6 7 9 10 12 13 14 16",5,falseif the checkmark of menuitem 3 of menu 5 = falsethen disable menuitem 3 of menu 5if icon of btn "compt" ≠ ""then enable menuitem 5 of menu 5if icon of btn "chrono" ≠ ""then enable menuitem 7 of menu 5actualiser suspendreset icon of btn id 269 to item 4 of line 13 of cd fld suspendreelseactualiser suspendreend ifelse if cd fld sauver ≠ ""thenset rect of card window to item 4 to 7 of line 12 of cd fld sauveractualiser sauverenable menuitem 8 of menu 2set icon of btn id 269 to item 4 of line 13 of cd fld sauverdésactiver "1 4 7",3,trueif the checkmark of menuitem 3 of menu 5 is truethen set the checkmark of menuitem 3 of menu 5 to falseelse set the checkmark of menuitem 3 of menu 5 to truesend aveugle to btn id 230if the checkmark of menuitem 5 of menu 5 is truethenput word 2 of item 1 of line 5 of cd fld sauver into cd fld coupsput word 2 of item 1 of line 5 of cd fld sauver into cd fld décompteend ifif the checkmark of menuitem 7 of menu 5 is falsethenget script of card 2put "-- on idle" into line 1 of itset script of card 2 to itput "- - . - - . - -" into cd fld temps of card 2elseget script of card 2put "on idle" into line 1 of itset script of card 2 to itput word 2 of item 1 of line 7 of cd fld sauver into cd fld chronomètreend ifif the checkmark of menuitem 4 of menu 5 is true then set style of btn "bonusmalus" to opaqueif the checkmark of menuitem 6 of menu 5 is true then set style of btn "inversion" to opaqueif the checkmark of menuitem 9 of menu 5 is truethenset the checkmark of menuitem 9 of menu 5 to falsesend clignotement to this cardend ifset name of btn 1 to item 4 of line 10 of cd fld sauverput item 4 to 6 of line 11 of cd fld sauver into fld monéchiquierset name of btn id 278 to item 7 of line 11 of cd fld sauverif symb is in menu 5 then set style of btn id 278 to opaqueput item 8 of line 11 of cd fld sauver into fld mespiècesset style of btn id 278 to item 9 of line 11 of cd fld sauverset rect of card window to item 4 to 7 of line 12 of cd fld sauverput line 50 to 59 of cd fld sauver into cd fld notesput line 100 to 118 of cd fld sauver into cd fld touchesif the checkmark of menuitem 16 of menu 5 is true then palette navigation,"382,255"disable menuitem 17 of menu 5set name of btn id 294 to item 4 of line 1 of cd fld sauverset icon of btn id 294 to item 5 of line 1 of cd fld sauverelse rienif cd fld rejouer ≠ ""thenset the checkmark of menuitem 8 of menu 2 to trueput "Partie sauvegardée…" into menuitem 8 of menu 2 with menumessages pourrejouerset commandchar of menuitem 8 of menu 2 to "S"end ifif style of btn créer = transparent or (style of btn créer = opaque and "interrompre" is not in menuitem 3 of menu 3)then disable menuitem 17 of menu 5if the number of lines of the stacks ≤ 1thendisable menuitem 4 of menu 2disable menuitem 4 of menu 4end ifif cd fld sauver ≠ ""thenput "Réglages personnels…" into menuitem 10 of menu 2 with menumessages sauvegarderset the checkmark of menuitem 10 of menu 2 to trueend ifif style of btn jouer = transparent and style of btn créer = transparentthenif cd fld rejouer = "" then disable menuitem 8 of menu 2else enable menuitem 8 of menu 2désactiver "1 4 7",3,trueelseput "Sauvegarder sous…" into menuitem 9 of menu 2 with menumessages sauvejeuenable menuitem 8 of menu 2disable menuitem 10 of menu 2end ifput "Écran " & short name of btn id 345 & quote into menuitem 12 of menu 5 with menumessages écranset the cantabort of this stack to trueset the cantpeek of this stack to trueend menuson closestackglobal bonjour,quelledir,chrono,déb,fin,psto,ens,euréka,combien,libre,parkalei,blocniv,lavar,dest,ens,blocdiag,avortdiag,quidiag,rejeu,annul,mesme,¬annulkalei,annulkalei2,annulkaleimémo,blocniv,ssclr,antér,reptest,partition,troispart,tyc,BATif the number of this card = 1 then exit closestackset cursor to watchif "interrompre" is in menu 2 or interrompre is in menu 3 and (cd fld solution ≠ "" and item 1 to 49 of line 1 of cd fld solution ≠ ",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,")thenif cd fld solution ≠ "" and item 1 to 49 of line 1 of cd fld solution ≠ ",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,"thenif sauvegardée is in menu 2thenbeepanswer "Voulez-vous sauvegarder la partie en cours ?" with "Non" or "Oui"if it = "oui"thensend sauvejeu to btn quitterend ifelsebeepsend pourrejouer to btn quitterend ifend ifend ifsend aufwiedersehen to btn quitterif there is a window "navigation" then close window "navigation"if there is a window "clavier"then close window "clavier"hide btn 1 of card 1show btn 3 of card 1hide btn 4 of card 1hide btn 5 of card 1hide btn 6 of card 1show btn 7 of card 1put "" into bonjourset cursor to watchput "" into chronoput "" into débput "" into finput "" into pstoput "" into ensput "" into eurékaput "" into combienput "" into libreput "" into parkaleiput "" into blocnivput "" into lavarput "" into destput "" into ensput "" into blocdiagput "" into avortdiagput "" into quidiagput "" into rejeuput "" into quelledirput "" into annulput "" into annulkaleiput "" into annulkalei2put "" into annulkaleimémoput "" into blocnivput "" into ssclrput "" into antérput "" into mesmeput "" into reptestput "" into partitionput "" into troispartput "" into tycput "" into BATlock screenhide btn voileput "" into cd fld suspendreput "" into cd fld couleursput "" into fld formesif last word of short name of btn id 294 is in "36"then send voyant to btn jouernetunlock screenput "" into cd fld solutionput "" into cd fld combinaisonput "" into cd fld tempsput "- -" into cd fld coupsset loc of btn 1 to loc of btn 26set name of btn id 142 to 26set loc of btn position to loc of btn 76if cd fld sauver = ""thenset showname of btn "compt" to trueset showname of btn "niveau" to trueset showname of btn "chrono" to trueshow btn optionscacheset icon of btn optionscache to ""set icon of btn "options" to "point"set icon of btn optionscache to "sésame"set rect of btn optionscache to "384,287,498,338"set name of btn id 269 to "son1"elseset name of btn id 269 to item 5 of line 13 of cd fld sauverend ifset style of btn id 278 to transparentset name of btn id 278 to "persostandard"put "" into fld mespiècesif cd fld sauver ≠ "" then put "" into fld monéchiquierelse put "40703,40128,40559" into fld "monéchiquier"put "" into fld monéchiquier2griser "btn inversion,btn bonusmalus,btn id 278,btn id 279,btn analyser,btn créer,btn enregistrer,btn plus,btn moins,btn jouer",falseset style of btn "jouer" to transparentset style of btn "créer" to transparentset style of btn "chrono" to transparentset style of btn "compt" to transparentlampif icon of btn id 341 = 29812 then set icon of btn id 341 to ""hide btn jouer1hide btn jouer2hide btn jouer3hide btn jouer4hide btn id 230hide btn 1hide btn positionvoiler trueset name of btn id 195 to ""set name of btn id 352 to ""set name of btn id 296 to ""if visible of bkgnd btn 1 is true or style of btn id 314 = opaquethen verserchcdisposeset userlevel to line 2 of fld "bonjour"reset menubardelete line 2 of fld "bonjour"IF the abbr date is not in line 1 of fld "bonjour" then put "" into fld "bonjour"play stopsetvolume 1hide btn id 371show menubarset the cantabort of this stack to falseset the cantpeek of this stack to falseend closestack</script>
</part>
<part>
<id>224</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>461</left>
<top>249</top>
<right>495</right>
<bottom>283</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Analyser</name>
<script>on mouseUpglobal indif,indif2,indif3if icon of me = 29812 then exit mouseupif the commandkey is down then put "oui" into indifelse put "" into indifif the shiftkey is down then put "oui" into indif2else put "" into indif2if the optionkey is down then put "oui" into indif3else put "" into indif3lock screencolorizehc "add","btnanalyseral","(item 1 of rect of me),(item 2 of rect of me)"unlock screenif icon of btn id 269 = "0"thenplay stopplay ptclicend ifsansbruitend mouseUpon sansbruitglobal legrandjeu,cham,mosa,ocazu,issue,indif,indif2,indif3if icon of me = 29812 then exit sansbruitif the commandkey is down then put "oui" into indifelse put "" into indifif the shiftkey is down then put "oui" into indif2else put "" into indif2if the optionkey is down then put "oui" into indif3else put "" into indif3lock screencolorizehc "add","btnanalyseral","(item 1 of rect of me),(item 2 of rect of me)"unlock screenput "" into issueif cd fld combinaison ≠ "" then put cd fld combinaison into ocazuput "" into champut "" into mosaif icon of me = 29812thenexit sansbruitend ifput "Niveau" & last word of short name of btn id 294 into chamif "interrompre" is in menuitem 1 of menu 2thenanswer "Le mode Jeu est actif." & return & return & "Pour visualiser d'autres mosaïques, désactivez-le préalablement en cliquant sur son bouton ou en tapant : Commande-I."éteindreexit sansbruitelse if "interrompre" is in menuitem 3 of menu 3thenanswer "Un dessin est en cours." & return & return & "Pour visualiser d'autres mosaïques, désactivez-le préalablement en cliquant sur son bouton ou en tapant : Commande-I."éteindreexit sansbruitend ifvisualiser chamend sansbruiton corbeilleglobal cham,mosa,issue,legrandjeu,mosa,stp,indif,indif2put "" into champut "" into mosaput "" into indifput "" into indif2put "Niveau" & last word of short name of btn id 294 into chamif the shiftkey is downthenif the number of lines of fld cham = 0thenbeepanswer "Le Niveau " & last word of short name of btn id 294 & " ne contient aucune mosaïque." & return & " "exit corbeilleend ifBeepif the number of lines of fld cham = 1thenanswer "ATTENTION !" & return & return & "Vous allez supprimer, sans visualisation préalable, la seule mosaïque du Niveau " & last word of short name of btn id 294 ¬& " …" with "OK" or "Annuler"elseask "ATTENTION !" & return & return & "Vous allez supprimer, sans visualisation préalable, une mosaïque du Niveau " & last word of short name of btn id 294 & " …" & return & return & "Indiquez son N° ou tapez A pour supprimer les " & the number of lines of fld cham & "."end ifif it is "A"thenput "" into fld champut "Niv." & last word of short name of btn id 294 & " = ø" into cd fld tempswait 2 secelse if it = "OK"thendelete last line of fld chamrepeat 4put "Terminé" into cd fld tempswait 4 ticksput "" into cd fld tempsend repeatelse if last char of it is in "0123456789" and it > 0 and it ≤ the number of lines of fld chamthendelete line it of fld chamrepeat 4put "Terminé" into cd fld tempswait 4 ticksput "" into cd fld tempsend repeatelseput "" into chamrepeat 4put "Annulé" into cd fld tempswait 4 ticksput "" into cd fld tempsend repeatend ifput "- - . - - . - -" into cd fld tempséteindreexit corbeilleend ifif style of btn jouer = opaque or style of btn créer = opaquethenif visible of btn "jouer1" is true then put "Dessin" into typelse if "interrompre" is in menuitem 1 of menu 2 then put "Jeu" into typanswer "Le mode " & typ & " est actif …" & return & return & "Toute suppression s'opére donc sans prévisualisation, grâce à la combinaison : Commande/Majuscule-X."exit corbeilleend ifput "" into issuevisualiser cham,ouiset cursor to watchif issue = "oui"thenput "" into issueput "" into champut "" into mosaput "" into modalresultput "" into fld formesexit corbeilleelsebeepanswer "Veuillez confirmer la suppression de la mosaïque N° " & mosa & " du Niveau " & last char of word 1 of cham & " …" with "OK" or "Annuler"if it is "OK"thenif line mosa of fld cham is in cd fld combinaison then put "" into cd fld combinaisondelete line mosa of fld chamrepeat 4put "Terminé" into cd fld tempswait 4 ticksput "" into cd fld tempsend repeatput "- - . - - . - -" into cd fld tempsend ifend ifput "" into champut "" into mosaput "" into modalresultend corbeilleon éteindreglobal legrandjeu,cham,tyclock screencolorizehc "add","btnanalyserét","(item 1 of rect of me),(item 2 of rect of me)"unlock screenput "" into legrandjeuput "" into tycput "" into fld formesend éteindreon visualiser x,yglobal cham,legrandjeu,modalresult,mosa,stp,vag,indif,indif2,indif3,issue,tycput "" into tycput x into chamif the number of lines of fld cham = 0then answer "Le Niveau " & last word of short name of btn id 294 & " ne contient aucune mosaïque." & return & " "if indif ≠ ""thenput "RadCtrl,,1,1,numéro" & return & "RadCtrl,,0,1,numéro" into enc1put "edittext,," & the number of lines of fld cham into enc3elseput "RadCtrl,,0,1,numéro" & return & "RadCtrl,,1,1,numéro" into enc1put "edittext,," & the number of lines of fld cham into enc3end ifif indif2 ≠ ""thenput "PictItem,hidden" & return & "PictItem,hidden" & return & ¬"RadCtrl,hidden,1,2" & return & "RadCtrl,hidden,0,2" & return & ¬"RadCtrl,,0,3,code" & return & "RadCtrl,,1,3,code" & return into enc5put "" into indif2elseif indif3 ≠ ""thenput "RadCtrl,,0,2" & return & "RadCtrl,,1,2" & return into enc2elseput "RadCtrl,,1,2" & return & "RadCtrl,,0,2" & return into enc2end ifput "PictItem" & return & "PictItem" & return & ¬enc2 & "RadCtrl,,1,3,code" & return & "RadCtrl,,0,3,code" & return into enc5put "PictItem,hidden" into enc4end ifif y = ""thenput "pictitem,hidden" into enc6put "statictext,hidden" into enc7elseput "pictitem,hidden" into enc8put "statictext,hidden" into enc9end ifput "niveau" & last word of short name of btn id 294 into nivif last word of short name of btn id 294 = 6thenput "chkCtrl,,0,,motif" & return & "pictitem,hidden" & return & "pictitem,hidden" & return & "pictitem,hidden" & return & "pictitem,hidden" & return & "pictitem,hidden" ¬& return & "pictitem,hidden" & return & "pictitem,hidden" & return & "pictitem,hidden" & return & "pictitem,hidden" & return & "pictitem,hidden" into enc10elseput "chkCtrl,hidden,0,,motif" & return & "pictitem,hidden" & return & "pictitem,hidden" & return & "pictitem,hidden" & return & "pictitem,hidden" & return & "pictitem,hidden" ¬& return & "pictitem,hidden" & return & "pictitem,hidden" & return & "pictitem,hidden" & return & "pictitem,hidden" & return & "pictitem,hidden" into enc10end ifput the trunc of ((item 3 of the screenrect-313)/2) into Xput the trunc of ((item 4 of the screenrect-324)/2) into Yput "btnctrl,touchexit" & return & "btnctrl,touchexit" & return & ¬enc8 & return & enc9 & return & ¬enc1 & return & "PictItem" & return & "PictItem" & return & enc3 & return & ¬enc5 & "btnctrl,,,,muser" & return & "stattext,," & the last word of short name of btn id 294 & ¬return & enc4 & return & enc6 & return & enc7 & return & "btnctrl,,,,moins" &¬return & "btnctrl,,,,plus" & return & enc10 into DLItemListget ModalDialog("affichage",DLItemList,X,Y,default)if it = 2thenéteindreput "oui" into issueexit visualiserend ifif vag ≠ "" and (vag > 0 and vag < 7)then put "Niveau" & vag into champut "" into vagif line 12 of modalresult = 1 then put "oui" into legrandjeuelse put "" into legrandjeuif line 6 of modalresult = 1thenif line 9 of modalresult ≠ ""thenif line 9 of modalresult ≤ 0 and fld cham is not emptythen put 1 into mosaelse if line 9 of modalresult > the number of lines of fld cham and fld cham is not emptythen put the number of lines of fld cham into mosaelse if fld cham is not empty then put line 9 of modalresult into mosaelseput "oui" into issuerepeat 4put "Annulé" into cd fld tempswait 4 ticksput "" into cd fld tempsend repeatput "- - . - - . - -" into cd fld tempséteindreexit visualiserend ifelseput "oui" into issuerepeat 4put "Annulé" into cd fld tempswait 4 ticksput "" into cd fld tempsend repeatput "- - . - - . - -" into cd fld tempséteindreexit visualiserend ifelse if line 5 of modalresult = 1thenif fld cham is not empty then put random (the number of lines of fld cham) into mosaelseput "oui" into issuerepeat 4put "Annulé" into cd fld tempswait 4 ticksput "" into cd fld tempsend repeatput "- - . - - . - -" into cd fld tempséteindreexit visualiserend ifelseput "oui" into issuerepeat 4put "Annulé" into cd fld tempswait 4 ticksput "" into cd fld tempsend repeatput "- - . - - . - -" into cd fld tempséteindreexit visualiserend ifcharger mosaéteindreend visualiseron charger yglobal BAT,cham,legrandjeu,ocazu,issue,modalresult,tycif line 15 of modalresult = 1thenset cursor to watchput line y of fld cham into avrepeat with a = 1 to 49if item a of av = "" thenput "" into item a of avelseif last char of word 1 of cham = 6thenrepeat with b = 1 to the number of words of item a of avdelete char 2 of word b of item a of avend repeatend ifend ifend repeatrepeat until " " is not in avdelete char offset (" ",av) of avend repeatrepeat 7put return after item 7 of last line of avif char 1 of last line of av = "," then delete char 1 of last line of avif the mouseclickthenrepeat 4put "Annulé" into cd fld tempswait 4 ticksput "" into cd fld tempsend repeatput "- - . - - . - -" into cd fld tempséteindreif ocazu ≠ "" then put ocazu into cd fld combinaisonexit chargerend ifend repeatrepeat until "," is not in avput "/" into char offset (",",av) of avif last char of word 1 of cham is in "36"then put "" into char offset (" ",av) of avend repeatanswer "Code de la mosaïque N° " & y & " du Niveau " & last char of word 1 of cham & "." & return & return & ¬line 1 of av & return & line 2 of av & return & line 3 of av & return & line 4 of av & return & line 5 of av & return & line 6 of av & return & line 7 of avelseput "- - . - - . - -" into cd fld tempsput last word of short name of btn id 294 into nivorset name of btn id 294 to "Niveau" && last char of word 1 of chamif "oui" is in legrandjeuthenhide btn 1put 2 into commput 50 into arrivput "1" into dédput 126 into crselsehide btn positionhide btn id 230put 52 into commput 100 into arrivput "51" into dédput 76 into crsend ifput line y of fld cham into cd fld combinaisonlock screenif last char of word 1 of cham = 6thenput fld formes into remettreput "" into fld formesif the number of items of cd fld combinaison < 50then send affsymb to btn àbaseelseif tyc = "" then put item 50 of cd fld combinaison into fld formeselse send affsymb to btn àbaseend ifend ifput "" into tycrepeat with i = comm to arrivset cursor to (i+crs)if item (i-déd) of cd fld combinaison = ""thencolorizeHC "add", "ptbtngris", rect of btn iset name of btn i to ""next repeatelse if last char of word 1 of cham is in "36"thenif last char of word 1 of cham = 3thensend q && "," & i & "," & (char 1 of word 3 of item i-déd of cd fld combinaison) & "," & combinaison to btn jouerelseif i ≤ 50 then send char i of fld formes && "," & i & "," & (char 1 of word 3 of item i-déd of cd fld combinaison) & "," & combinaison to btn jouerelse send char i-50 of fld formes && "," & i & "," & (char 1 of word 3 of item i-déd of cd fld combinaison) & "," & combinaison to btn jouerend ifset name of btn i to ""elseif "oui" is in legrandjeuthenif last char of word 1 of cham is in "12"thenput fld mespièces & "btn" & item i-déd of cd fld combinaison & "2" into nivcoulelse if last char of word 1 of cham is in "45"thenput fld mespièces & "btn" & item i-déd of cd fld combinaison into nivcoulend ifelseif last char of word 1 of cham is in "12"thenput "ptbtn" & item i-déd of cd fld combinaison & "2" into nivcoulelse if last char of word 1 of cham is in "45"thenput "ptbtn" & item i-déd of cd fld combinaison into nivcoulend ifend ifcolorizeHC "add",nivcoul,rect of btn iif last char of word 1 of cham is not in "36" and style of btn id 278 = opaque then marquer ielse set name of btn i to ""end ifif the mouseclickthenput "oui" into issueif ocazu ≠ "" then put ocazu into cd fld combinaisonset cursor to watchif "oui" is in legrandjeuthencolorizeHC "add", short name of btn id 278 & "1",item 1 to 2 of rect of fld "monéchiquier"colorizeHC "add",word 1 of short name of btn 1 & "1",rect of btn 26else colorizeHC "add", short name of btn id 278 & "2",item 1 to 2 of rect of fld "monéchiquier2"if style of btn id 278 = opaquethenrepeat with b = arriv down to commset name of btn b to ""end repeatend ifrepeat until the lockscreen is falseunlock screenend repeatrepeat 4put "Annulé" into cd fld tempswait 4 ticksput "" into cd fld tempsend repeatput "- - . - - . - -" into cd fld tempsif "oui" is in legrandjeu then show btn 1else mnémoif last char of word 1 of cham = 6 then put remettre into fld formesset name of btn id 294 to "Niveau" && nivorexit chargerend ifif i = arriv then set cursor to 6end repeatset cursor to 6repeat until the lockscreen is falseunlock screenend repeatset name of btn id 294 to "Niveau" && nivorif last char of word 1 of cham = 6 then put remettre into fld formesif icon of btn id 269 = "0"thenplay stopplay trzim gend ifput y && "(N. " & last char of word 1 of cham & ")" into cd fld tempsend ifput line y of fld cham & return & last char of word 1 of cham & return into cd fld combinaisonput ",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,," into cd fld solutionéteindreend charger</script>
</part>
<part>
<id>233</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>96</left>
<top>0</top>
<right>108</right>
<bottom>12</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Sauver</name>
<script></script>
</part>
<part>
<id>234</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>36</left>
<top>0</top>
<right>48</right>
<bottom>12</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Chronomètre</name>
<script></script>
</part>
<part>
<id>235</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>48</left>
<top>0</top>
<right>60</right>
<bottom>12</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Couleurs</name>
<script></script>
</part>
<part>
<id>236</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>60</left>
<top>0</top>
<right>72</right>
<bottom>12</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Notes</name>
<script></script>
</part>
<part>
<id>237</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>72</left>
<top>0</top>
<right>84</right>
<bottom>12</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Touches</name>
<script></script>
</part>
<part>
<id>244</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>24</left>
<top>0</top>
<right>36</right>
<bottom>12</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Décompte</name>
<script></script>
</part>
<part>
<id>230</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>381</left>
<top>23</top>
<right>499</right>
<bottom>141</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>18865</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name> D E S S I N E Z . . .</name>
<script>on mouseupif visible of btn "jouer1" is true or the enabled of menuitem 3 of menu 5 = false then exit mouseupget the secondswait 10 ticksif the mouseclick and the seconds - it < 3then doubleclicend mouseupon doubleclicif the enabled of menuitem 3 of menu 5 = false then exit doubleclicif the checkmark of menuitem 3 of menu 5 = falsethenaveugleelseif "interrompre" is in menuitem 1 of menu 2 then exit doubleclicaveugleend ifend doubleclicon aveugleif the checkmark of menuitem 3 of menu 5 = falsethenset icon of btn id 230 to "0"set the showname of btn id 230 to falseset hilite of btn id 230 to trueset style of btn id 230 to opaqueshow btn id 230set icon of btn position to "cube"set hilite of btn position to trueset style of btn position to transparentshow btn positionset the checkmark of menuitem 3 of menu 5 to trueelsehide btn id 230set icon of btn id 230 to "création"set hilite of btn id 230 to trueunlock screenif last word of short name of btn id 294 is in "36"then set icon of btn position to "croix2"else set icon of btn position to "croix"set hilite of btn position to falseshow btn positionset the checkmark of menuitem 3 of menu 5 to falseend ifend aveugle</script>
</part>
<part>
<id>265</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>429</left>
<top>71</top>
<right>451</right>
<bottom>93</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>21906</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>position</name>
<script>on mouseupput the seconds into stwait 10 ticksif the mouseclick and the seconds - st < 4thensend doubleclic to btn id 230end ifend mouseupon mouseenterinfo36 the number of meend mouseenter</script>
</part>
<part>
<id>269</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>385</left>
<top>296</top>
<right>405</right>
<bottom>326</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>32233</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>son1</name>
<script>on mouseUpif icon of me = "0"thensonset icon of me to sonplay stopplay ptclicelseset icon of me to ""play ptclicsonend ifend mouseUpon songlobal modalresultif the commandkey is down then put "chkCtrl,,1" into enc1else put "chkCtrl,,0"into enc1if the checkmark of menuitem 13 of menu 5 = truethenplay stopsetvolume 1set the checkmark of menuitem 13 of menu 5 to falselock screencolorizehc "add","son0","477,287"unlock screenset icon of btn id 269 to sonput "Son…" into menuitem 13 of menu 5 with menumessages sonexit sonelseput the trunc of ((item 3 of the screenrect-260)/2) into Xput the trunc of ((item 4 of the screenrect-324)/2) into Yput "btnctrl,touchexit" & return & "btnctrl,touchexit" & return & ¬"PictItem" & return & "Statictext" & return & "editText,,HARPSICHORD" & return & ¬"editText,1,DO" & return & "editText,,RÉ" & return & "editText,,MI" & return & ¬"editText,,FA" & return & "editText,,SOL" & return & "editText,,LA" & return & ¬"editText,,SI" & return & "editText,,DO" & return & enc1 & return & "pictitem" & return & ¬"pictitem" & return & "pictitem" & return & "pictitem" & return & "pictitem" & ¬return & "pictitem" & return & "pictitem" & return & "pictitem" & return & "btnctrl,,,,quelson" into DLItemListget ModalDialog("Sons",DLItemList,X,Y,default)set cursor to busyif it = 2thenset icon of me to sonexit sonend ifif line 14 of modalresult = 1thenget line 5 of modalresultput "" into modalresultput it into line 5 of modalresultend ifget line 6 of modalresult & return & line 7 of modalresult & return & line 8 of modalresult & return & line 9 of modalresult & return & line 10 of modalresult & ¬return & line 11 of modalresult & return & line 12 of modalresult & return & line 13 of modalresult & return & line 5 of modalresult & returnif do & return & ré & return & mi & return & fa & return & sol & return & la & return & si & return & do & return & harpsichord is in itthenput la & return & si & return & od & return & fa & return & sol & return & od & return & ré & return & mi & return & harpsichord into cd fld notesif icon of btn id 269 = 32233 then set icon of btn id 269 to ""set the checkmark of menuitem 13 of menu 5 to truelock screencolorizehc "add","son" & last char of short name of btn id 269,"477,287"unlock screensetvolume (last char of short name of btn id 269)play stopplay (word 1 of line 9 of cd fld notes)put "Son…" into menuitem 13 of menu 5 with menumessages sonset the checkmark of menuitem 13 of menu 5 to trueexit sonend ifsetvolume (last char of word 1 of short name of btn id 269)put line 11 of modalresult & return & line 12 of modalresult & return & line 13 of modalresult & return & line 9 of modalresult & return & line 10 of modalresult & ¬return & line 6 of modalresult & return & line 7 of modalresult & return & line 8 of modalresult & return & line 5 of modalresult into cd fld notesrepeat with a = 1 to 8get word 1 of line a of cd fld notesif (it ≠ "" and it ≠ do and it ≠ ré and it ≠ re and it ≠ mi and it ≠ fa and it ≠ sol and it ≠ la and it ≠ si) or it = ""then put "-" into line a of cd fld notesend repeatif line 9 of cd fld notes = "" then put "HARPSICHORD" into line 9 of cd fld notesIF HARPSICHORD is in line 9 of cd fld notesthenput "Son (" & line 6 of modalresult & "/" & line 7 of modalresult & "/" & line 8 of modalresult & "/" & line 9 of modalresult & "/" & line 10 of modalresult & ¬"/" & line 11 of modalresult & "/" & line 12 of modalresult & "/" & line 13 of modalresult & ")" into menuitem 13 of menu 5 ¬with menumessages sonelseif line 9 of cd fld notes ≠ "" then put " " & line 9 of cd fld notes & " (" into snelse put " (" into snput "Son" & sn & line 6 of modalresult & "/" & line 7 of modalresult & "/" & line 8 of modalresult & "/" & line 9 of modalresult & "/" & line 10 of modalresult & ¬"/" & line 11 of modalresult & "/" & line 12 of modalresult & "/" & line 13 of modalresult & ")" into menuitem 13 of menu 5 ¬with menumessages sonend ifrepeat until "do" is not in cd fld notesput offset ("do",cd fld notes) into borput "OD" into char bor to bor + 1 of cd fld notesend repeatset icon of btn id 269 to ""set the checkmark of menuitem 13 of menu 5 to truelock screencolorizehc "add","son" & last char of word 1 of short name of btn id 269,"477,287"unlock screensetvolume (last char of word 1 of short name of btn id 269)play stopplay (word 1 of line 9 of cd fld notes)end ifend sonon volume xif icon of me ≠ 29812thenif x = "plus" and last char of short name of me < 7thenput "son" & last char of short name of me + 1 into nomsend mouseup to btn nomelse if x = "moins" and last char of short name of me > 1thenput "son" & last char of short name of me - 1 into nomsend mouseup to btn nomelse beepend ifend volume</script>
</part>
<part>
<id>277</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>477</left>
<top>287</top>
<right>496</right>
<bottom>299</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>son7</name>
<script>on mouseUpif 0 Γëá icon of btn id 269 or short name of btn id 269 = "son7" then exit mouseupset name of btn id 269 to "son7"lock screencolorizehc "add","son7","477,287"set icon of btn id 269 to ""unlock screensetvolume 7play stopplay (word 1 of line 9 of cd fld notes)end mouseUp</script>
</part>
<part>
<id>276</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>477</left>
<top>294</top>
<right>496</right>
<bottom>306</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>son6</name>
<script>on mouseUpif 0 Γëá icon of btn id 269 or short name of btn id 269 = "son6" then exit mouseupset name of btn id 269 to "son6"lock screencolorizehc "add","son6","477,287"set icon of btn id 269 to ""unlock screensetvolume 6play stopplay (word 1 of line 9 of cd fld notes)end mouseUp</script>
</part>
<part>
<id>275</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>477</left>
<top>302</top>
<right>496</right>
<bottom>314</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>son5</name>
<script>on mouseUpif 0 Γëá icon of btn id 269 or short name of btn id 269 = "son5" then exit mouseupset name of btn id 269 to "son5"lock screencolorizehc "add","son5","477,287"set icon of btn id 269 to ""unlock screensetvolume 5play stopplay (word 1 of line 9 of cd fld notes)end mouseUp</script>
</part>
<part>
<id>274</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>477</left>
<top>309</top>
<right>495</right>
<bottom>321</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>son4</name>
<script>on mouseUpif 0 Γëá icon of btn id 269 or short name of btn id 269 = "son4" then exit mouseupset name of btn id 269 to "son4"lock screencolorizehc "add","son4","477,287"set icon of btn id 269 to ""unlock screensetvolume 4play stopplay (word 1 of line 9 of cd fld notes)end mouseUp</script>
</part>
<part>
<id>225</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>423</left>
<top>249</top>
<right>457</right>
<bottom>283</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Créer</name>
<script>on mouseUpglobal lavar,dest,chrono,déb,fin,psto,ens,euréka,kalei,annul,étatcouleur,libre,combien,parkalei,bomalus,étbonmal,étinvers,étpièces,blocdiag,avortdiag,¬blocniv,rejeu,quelledir,ssdlg,quelniv,annulkalei,annulkalei2,alea,BATput "- - . - - . - -" into cd fld tempsset cursor to watchput last word of short name of btn id 294 into quelnivput "" into chronoput "" into débput "" into finput "" into pstoput "" into ensput "" into eurékaput ",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,," into cd fld solutionput "" into eurékaput "" into libreput "" into combienput "" into parkaleiput "" into blocdiagput "" into avortdiagput "" into blocnivput "26" into destput "" into lavarput "" into fld formesset name of btn id 142 to 26if last word of short name of btn id 294 is in 36 then set style of btn id 278 to transparentput "B J M O R M V B" into kaleiset loc of btn 1 to loc of btn 26set loc of btn position to loc of btn 76put style of btn bonusmalus into étbonmalput style of btn inversion into étinversset style of btn bonusmalus to transparentset style of btn inversion to transparentset style of btn "chrono" to transparentset style of btn "compt" to transparentdésactiver "1 8 10",2,truedésactiver "1 3 4 7",3,falsedésactiver "5",3,truedésactiver "1 3 4 5 6 7 11",5,trueenable menuitem 17 of menu 5put "Interrompre le dessin…" into menuitem 3 of menu 3 with menumessages "créer"set commandchar of menuitem 3 of menu 3 to "I"put "B J M O R M V B" into kaleilock screenshow btn "jouer1"show btn "jouer2"show btn "jouer3"show btn "jouer4"unlock screengriser "btn moins,btn plus,btn analyser,btn id 278,btn BonusMalus,btn inversion",trueput "0" into cd fld coupsset cursor to watchlock screenaffichagecolorizehc "add","btncréeral","(item 1 of rect of me),(item 2 of rect of me)"netunlock screenshow btn 1colorizeHC "add",word 1 of short name of btn 1 & "1",rect of btn 26set style of me to opaqueif the checkmark of menuitem 3 of menu 5 = falsethenif last word of short name of btn id 294 is in "36"then set icon of btn position to "croix2"else set icon of btn position to "croix"end ifset cursor to watchif "oui" is in rejeuthenlock screenset name of btn id 294 to "Niveau " & word 1 of line 2 of cd fld rejouerput line 4 of cd fld rejouer into cd fld solutionput item 1 to 49 of line 1 of cd fld solution into BATif the number of items of cd fld solution = 50then put item 50 of cd fld solution into fld formesset name of btn id 142 to word 2 of line 5 of cd fld rejouerput word 1 of line 5 of cd fld rejouer into lavarput word 2 of line 5 of cd fld rejouer into destif word 1 of line 2 of cd fld rejouer = 1then set icon of btn id 294 to "un"else if word 1 of line 2 of cd fld rejouer = 2then set icon of btn id 294 to "deux"else if word 1 of line 2 of cd fld rejouer = 3then set icon of btn id 294 to "trois"else if word 1 of line 2 of cd fld rejouer = 4then set icon of btn id 294 to "quatre"else if word 1 of line 2 of cd fld rejouer = 5then set icon of btn id 294 to "cinq"else set icon of btn id 294 to "sis"repeat until the lockscreen is falseunlock screenend repeatlock screenset icon of btn 1 to ""put short name of btn id 294 & "…" into menuitem 1 of menu 5 with menumessages "Niveau"set the commandchar of menuitem 1 of menu 5 to "J"disable menuitem 1 of menu 5if last word of short name of btn id 294 = 6 then quelleformeput word 1 of line 8 of cd fld rejouer into cd fld coupsput item 1 of line 50 of cd fld rejouer into kaleiput item 2 of line 50 of cd fld rejouer into annulkaleiput item 3 of line 50 of cd fld rejouer into annulkalei2put word 1 of short name of btn 1 & last char of item 5 of line 50 of cd fld rejouer into quelledirput item 6 of line 50 of cd fld rejouer into aleaput line 51 to 56 of cd fld rejouer into annulset cursor to 128colorizeHC "add", short name of btn id 278 & "1",item 1 to 2 of rect of fld "monéchiquier"repeat with a = 2 to 50set cursor to a+126set name of btn a to ""if the mouseclickthenhide btn 1set loc of btn 1 to loc of btn 26net a+50colorizeHC "add",short name of btn id 278 & "1",item 1 to 2 of rect of fld "monéchiquier"colorizeHC "add",word 1 of short name of btn 1 & "1",rect of btn 26colorizeHC "add", short name of btn id 278 & "2",item 1 to 2 of rect of fld "monéchiquier2"colorizehc "add","btncréerét","(item 1 of rect of me),(item 2 of rect of me)"repeat until the lockscreen is falseunlock screenend repeatrepeat 4put "Annulé" into cd fld tempswait 4 ticksput "" into cd fld tempsend repeatput "- - . - - . - -" into cd fld tempsput "" into rejeuarrêtshow btn 1exit mouseupend ifif a = destthenset icon of btn 1 to ""set loc of btn 1 to loc of btn aset name of btn id 142 to aif last word of short name of btn id 294 = 1 or item dest-1 of cd fld solution = "" ¬or (the number of words of item dest-1 of cd fld solution = 3 and last word of short name of btn id 294 = 3) ¬or ("v" is in last word of item dest-1 of cd fld solution and last word of short name of btn id 294 is in "123") ¬or ("v" is in last word of item dest-1 of cd fld solution and "3" is not in last word of item dest-1 of cd fld solution)thencolorizeHC "add",word 1 of short name of btn 1 & last char of quelledir, rect of btn aelseif "3" is not in last word of item dest-1 of cd fld solution and the number of words of item dest-1 of cd fld solution < 3thencolorizeHC "add","N" & word 7 of kalei,rect of btn acolorizeHC "add",word 1 of short name of btn 1 & last char of quelledir, rect of btn 1elseif last word of short name of btn id 294 = 3thencolorizeHC "add",word 1 of short name of btn 1 & last char of quelledir, rect of btn aelsecolorizeHC "add","ptbtngris",rect of btn acolorizeHC "add",word 1 of short name of btn 1 & last char of quelledir, rect of btn 1end ifend ifend ifelseif last word of short name of btn id 294 is in "36" and item a-1 of cd fld solution ≠ ""thenif last word of short name of btn id 294 = 3then send q && "," & a & "," & (char 1 of word 3 of item a-1 of cd fld solution) & "," & solution to btn jouerelsesend char a of fld formes & "," & a & "," & (char 1 of word 3 of item a-1 of cd fld solution) & "," & solution to btn jouerend ifelseif last word of short name of btn id 294 ≤ 3 then put 2 into alastelse put "" into alastcolorizeHC "add",fld mespièces & "btn" & word 1 of item a-1 of cd fld solution & alast,rect of btn aif style of btn id 278 = opaque and item a-1 of cd fld solution ≠ "" then marquer aend ifend ifend repeatif last word of short name of btn id 294 is in "56" and item dest-1 of cd fld solution ≠ ""thenput "oui" into blocdiagend if-- unlock screenelseunlock screenif "oui" is not in ssdlgthenanswer "Vous vous apprêtez à dessiner une mosaïque au Niveau " & last word of short name of btn id 294 & " …" & return & return ¬& "Ce niveau vous convient-il ? " with "Annuler" or "Modifier" or "OK"if it is "Annuler"thenlock screencolorizehc "add","btncréerét","(item 1 of rect of me),(item 2 of rect of me)"repeat until the lockscreen is falseunlock screenend repeatarrêtexit mouseupelse if it is "Modifier"thenask "Indiquez, par un chiffre compris entre 1 et 6, le Niveau souhaité pour le dessin de votre mosaïque …" with last word of short name of btn id 294lock screenput "un deux trois quatre cinq sis" into paralif the result = cancel or it = "" or it < 1 or it > 6 or it is not in "123456"thenput last word of short name of btn id 294 into itunlock screenput "Niveau " & it into cd fld tempswait 1 secput "- - . - - . - -" into cd fld tempslock screenend ifif it is in "36"thenset name of btn 26 to ""set style of btn id 278 to transparentend ifset name of btn id 294 to "Niveau " & itset icon of btn id 294 to word it of paralunlock screenlock screenput short name of btn id 294 & "…" into menuitem 1 of menu 5 with menumessages niveauset the commandchar of menuitem 1 of menu 5 to "J"disable menuitem 1 of menu 5end ifend ifif last word of short name of btn id 294 = 6 then quelleformeend ifset cursor to watchput the checkmark of menuitem 4 of menu 5 into bomalusif last word of short name of btn id 294 ≥ 5thenrepeat with a = 52 to 100if last word of short name of btn id 294 ≥ 5 and last char of a is in "02468"thenset style of btn a to shadowset style of btn (a-50) to shadowend ifif style of btn id 278 = "opaque" then set name of btn a to ""end repeatelserepeat with a = 52 to 100set style of btn a to rectangleset style of btn (a-50) to transparentif style of btn id 278 = "opaque" then set name of btn a to ""end repeatend ifif ",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,," = item 1 to 49 of cd fld solution then disable menuitem 8 of menu 2else enable menuitem 8 of menu 2put "Sauvegarder sous…" into menuitem 9 of menu 2 with menumessages sauvejeuset style of btn "jouer" to opaquelock screenhide btn positioncolorizeHC "add","cachéch",item 1 to 2 of rect of btn id 230set icon of btn id 230 to "création"set the showname of btn id 230 to trueset name of btn id 230 to " D E S S I N E Z . . ."set style of btn id 230 to opaqueset hilite of btn id 230 to trueshow btn id 230repeat until the lockscreen is falseunlock screenend repeatif icon of btn id 269 = "0"thenplay stopplay trzim gend ifset icon of btn 1 to ""if rejeu ≠ "" then put "" into rejeulock screencolorizehc "add","btncréeral","(item 1 of rect of me),(item 2 of rect of me)"unlock screenend mouseUpon arrêtglobal étatcouleur,bomalus,étbonmal,étinvers,étpièces,inversion,quelledir,rejeu,lavar,dest,kalei,annulkalei,annulkalei2,annul,blocdiag,avortdiag,quidiag,blocniv,¬partition,quelniv,blocflash,unpostinv,BATset cursor to watchlock screencolorizehc "add","btncréerét","(item 1 of rect of me),(item 2 of rect of me)"unlock screenlock screenput "" into unpostinvput "" into blocflashput "" into partitionput "" into lavarput "26" into destput "" into annulput "" into kaleiput "" into annulkaleiput "" into annulkalei2put "" into blocdiagput "" into avortdiagput "" into quidiagput "" into rejeuput "" into quelledirput "" into blocnivput "" into BATset loc of btn 1 to loc of btn 26set loc of btn position to loc of btn 76if style of btn id 278 = opaque then set name of btn 26 to ""netunlock screenif étbonmal ≠ "" then set style of btn "bonusmalus" to étbonmalif étinvers ≠ "" then set style of btn "inversion" to étinversif symb is in menu 5 then set style of btn id 278 to opaqueelse set style of btn id 278 to transparentlampif the checkmark of menuitem 4 of menu 5 is true then set style of btn "bonusmalus" to opaqueif the checkmark of menuitem 6 of menu 5 is true then set style of btn "inversion" to opaqueaffichageset the showname of btn id 230 to falseset style of btn id 230 to opaqueset hilite of btn id 230 to truehide btn id 230if style of btn id 314 = opaque then verserunlock screenshow btn positionput ",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,," into cd fld solutionset icon of btn "créer" to ""griser "btn inversion,btn bonusmalus,btn id 278,btn analyser,btn plus,btn moins","false"lock screenhide btn "jouer1"hide btn "jouer2"hide btn "jouer3"hide btn "jouer4"unlock screenlock screenput "" into fld formessend ancienniveau to btn id 294set style of btn jouer to transparentset style of btn créer to transparentput "" into cd fld tempsset textalign of cd fld temps to centerset textstyle of cd fld temps to plain,boldput "- - . - - . - -" into cd fld tempsput "- -" into cd fld coupsdésactiver "1 10",2,falseif cd fld rejouer ≠ "" then enable menuitem 8 of menu 2else disable menuitem 8 of menu 2désactiver "1 3 4 5 6 7 11",5,falsedésactiver "3 5 6",3,falsedésactiver "1 4 7",3,truedisable menuitem 17 of menu 5if bomalus ≠ "" then set the checkmark of menuitem 4 of menu 5 to bomalusput "Charger sauvegarde…" into menuitem 9 of menu 2 with menumessages sauvejeuput "Dessiner une mosaïque……" into menuitem 3 of menu 3 with menumessages "Créer"set commandchar of menuitem 3 of menu 3 to "D"set name of btn id 142 to 26set icon of btn 1 to venisif the checkmark of menuitem 5 of menu 5 is truethen put cd fld décompte into cd fld coupspetitdamierset the checkmark of menuitem 17 of menu 5 to falseif there is a window "clavier" then close window "clavier"put "" into fld monéchiquier2if cd fld couleurs ≠ "" then send restaurer to btn quitterend arrêton effacementglobal annul,annulkalei,annulkalei2,kalei,dest,lavar,troispart,inversion,quelledir,rejeu,blocdiag,avortdiag,quidiag,blocnivput "" into rejeuset cursor to watchput "" into quelledirdisable menuitem 8 of menu 2lock screenset loc of btn 1 to loc of btn 26if style of btn id 278 = opaque then set name of btn 26 to ""set loc of btn position to loc of btn 76put "oui" into troispartaffichagecolorizeHC "add","cachéch",item 1 to 2 of rect of btn id 230colorizehc "add","btncréeral","(item 1 of rect of me),(item 2 of rect of me)"if style of btn id 278 = opaquethenrepeat with a = 2 to 50set name of btn a to ""end repeatend ifif style of btn id 314 = opaque then verserunlock screenput ",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,," into cd fld solutionput "" into cd fld tempsput "- - . - - . - -" into cd fld tempsset name of btn id 142 to 26put "" into lavarput "26" into destput "" into annulput "" into annulkaleiput "" into annulkalei2put "" into avortdiagput "" into blocdiagput "" into quidiagput "" into blocnivput "B J M O R M V B" into kaleiput 0 into cd fld coupsset icon of btn 1 to ""if icon of btn id 269 = "0"thenplay stopplay trzim gelseput "OK" into cd fld tempswait 1 secput "- - . - - . - -" into cd fld tempsend ifend effacementon petitdamierif the checkmark of menuitem 3 of menu 5 is truethenset the checkmark of menuitem 3 of menu 5 to falseaveugleelseif last word of short name of btn id 294 is in "36"then set icon of btn position to "croix2"else set icon of btn position to "croix"end ifend petitdamieron vérifgainglobal BAT,dest,lavar,eurékaif BAT = item 1 to 49 of line 1 of cd fld combinaison and cd fld combinaison ≠ ""thenflash 3if icon of btn id 269 = "0"thenplay stoprepeat 6play baleineend repeatend ifput "     " into cd fld tempsrepeat until char 1 to 2 of cd fld temps = " "delete char 1 of cd fld tempsend repeatset the textalign of cd fld temps to centerput "26 33 32 25 18 19 20 27 34 41 40 39 38 31 24 17 10 11 12 13 14 21 28" & ¬" 35 42 49 48 47 46 45 44 37 30 23 16 9 2 3 4 5 6 7 8 15 22 29 36 43 50" into spiralerepeat with spi = 1 to 49set hilite of btn (word spi of spirale) to trueend repeat--put "2 3 4 5 6 7 8 15 22 29 36 43 50 49 48 47 46 45 44 37 30 23 16 9 10 11 12 13 14 21 " & ¬--"28 35 42 41 40 39 38 37 36 31 24 17 18 19 20 27 34 33 32 25 26" into spiraleput "8 7 6 5 4 3 2 9 16 23 30 37 44 45 46 47 48 49 50 43 36 29 22 15" & ¬" 14 13 12 11 10 17 24 31 38 39 40 41 42 35 28 21 20 19 18 25 32 33 34 27 26" into spiralerepeat with spi = 1 to 49set hilite of btn (word spi of spirale) to falseend repeatif last word of short name of btn id 294 is in "36"thenlock screensend voyant to btn jouerunlock screenend ifrepeat 3put "BRAVO !" into cd fld tempslock screencolorizeHC "add","barrevoyantsal","381,144"unlock screenput "" into cd fld tempslock screencolorizeHC "add","barrevoyantsét","381,142"unlock screenend repeatput "- - . - - . - -" into cd fld tempslock screencolorizeHC "add","btnnouveaujeuét","item 1 of rect of btn jouer,item 2 of rect of btn jouer"if the checkmark of menuitem 7 of menu 5 = truethencolorizeHC "add", "btnplusét","item 1 to 2 of rect of btn plus"colorizeHC "add", "btnmoinsét","item 1 to 2 of rect of btn moins"end ifunlock screenset icon of btn dest to ""lock screencolorizeHC "add",word 1 of short name of btn 1 & "1",rect of btn destunlock screenrepeatrepeat with derv = 8 down to 1lock screencolorizeHC "add",word 1 of short name of btn 1 & derv,rect of btn destunlock screenif the mouseclickthenlock screencolorizeHC "add",word 1 of short name of btn 1 & "1",rect of btn destunlock screenset loc of btn 1 to loc of btn destset icon of btn 1 to venisput "" into eurékasend findepartie to btn jouerexit vérifgainend ifend repeatend repeatend ifend vérifgainon test56global dest,lavar,blocdiag,avortdiag,quidiag,reptestget line 2 of cd fld touches && line 4 of cd fld touches && line 5 of cd fld touches && line 7 of cd fld touchesif last word of short name of btn id 294 ≥ 5 and "oui" is in blocdiag and quidiag is in itthenput "oui" into reptestexit test56end ifif last word of short name of btn id 294 = 6thenif (the number of words of item dest-1 of cd fld solution)-(the number of words of item lavar-1 of cd fld solution) > 1thenput "oui" into reptestend ifend ifend test56</script>
</part>
<part>
<id>273</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>477</left>
<top>315</top>
<right>496</right>
<bottom>327</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>son3</name>
<script>on mouseUpif 0 Γëá icon of btn id 269 or short name of btn id 269 = "son3" then exit mouseupset name of btn id 269 to "son3"lock screencolorizehc "add","son3","477,287"set icon of btn id 269 to ""unlock screensetvolume 3play stopplay (word 1 of line 9 of cd fld notes)end mouseUp</script>
</part>
<part>
<id>272</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>477</left>
<top>323</top>
<right>496</right>
<bottom>335</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>son2</name>
<script>on mouseUpif 0 Γëá icon of btn id 269 or short name of btn id 269 = "son2" then exit mouseupset name of btn id 269 to "son2"lock screencolorizehc "add","son2","477,287"set icon of btn id 269 to ""unlock screensetvolume 2play stopplay (word 1 of line 9 of cd fld notes)end mouseUp</script>
</part>
<part>
<id>271</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>478</left>
<top>328</top>
<right>494</right>
<bottom>340</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>son1</name>
<script>on mouseUpif 0 Γëá icon of btn id 269 or short name of btn id 269 = "son1" then exit mouseupset name of btn id 269 to "son1"lock screencolorizehc "add","son1","477,287"set icon of btn id 269 to ""unlock screensetvolume 1play stopplay (word 1 of line 9 of cd fld notes)end mouseUp</script>
</part>
<part>
<id>278</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>453</left>
<top>289</top>
<right>477</right>
<bottom>311</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>persostandard</name>
<script>on mouseUpif style of btn jouer = opaque or icon of btn créer = gris or icon of me = 29812 then exit mouseupif icon of btn id 269 = "0"thenplay stopplay ptclicend ifmousebisend mouseupon mousebisglobal amusette,macouleur,modalresultput "" into modalresultwait 10 ticksif the mouseclickthenput "oui" into amusetteput "hidden" into amuselse put "" into amusif the commandkey is down and the shiftkey is downthenput "RadCtrl,,1,3" & return & "RadCtrl,,0,3" & return & "RadCtrl,,0,3" into enc1put return & "PictItem,hidden" & return & "PictItem,hidden" & return & "PictItem,hidden" & return into enc0put "pictitem" & return & "pictitem" & return & "pictitem" & return & "RadCtrl,hidden" & return & "RadCtrl,hidden" & return & "RadCtrl,hidden" into enc3put "plus,7 8 9" into ordreelseput return & "PictItem" & return & "PictItem" & return & "PictItem" & return into enc0if the commandkey is downthenput "RadCtrl,hidden,0,1" & return & "RadCtrl,hidden,1,1" & return & "RadCtrl,hidden,0,1" into enc1put "pictitem,hidden" & return & "pictitem,hidden" & return & "pictitem,hidden" & return & "RadCtrl,,0,3" & return & "RadCtrl,,1,3" & return & ¬"RadCtrl,,0,3" into enc3else if the shiftkey is downthenput "RadCtrl,hidden,0,1" & return & "RadCtrl,hidden,0,1" & return & "RadCtrl,hidden,1,1" into enc1put "pictitem,hidden" & return & "pictitem,hidden" & return & "pictitem,hidden" & return & "RadCtrl,,0,3" & return & "RadCtrl,,0,3" & return & ¬"RadCtrl,,1,3" into enc3elseput "RadCtrl,hidden,1,1" & return & "RadCtrl,hidden,0,1" & return & "RadCtrl,hidden,0,1" into enc1put "pictitem,hidden" & return & "pictitem,hidden" & return & "pictitem,hidden" & return & "RadCtrl,,1,3" & return & "RadCtrl,,0,3" & return & ¬"RadCtrl,,0,3" into enc3end ifput ",24 25 26" into ordreend ifif the optionkey is down then put "RadCtrl,,0,2,symboles" & return & "RadCtrl,,1,2,symboles" into enc2else put "RadCtrl,,1,2,symboles" & return & "RadCtrl,,0,2,symboles" into enc2put "- - . - - . - -" into cd fld tempsput "" into macouleurput the trunc of ((item 3 of the screenrect-313)/2) into Xput the trunc of ((item 4 of the screenrect-324)/2) into Yput "btnctrl,touchexit" & return & "btnctrl,touchexit" & return &¬"STATICtext" & enc0 & enc1 & return & "PictItem,hidden" & return &¬"chkCtrl," & amus & ",0,,persocouleur" & return & return & return &¬"PictItem,hidden" & return & "PictItem,hidden" & return &¬enc2 & return & "chkCtrl,,,,symboles" & return & "PictItem,hidden" & ¬amus & return & return & enc3 into DLItemListget ModalDialog("personnalisation",DLItemList,X,Y,default)set cursor to busyif it = 2thenput "" into macouleurput "" into modalresultexit mousebisend ifif amus = "" then put "" into amusetteif line 11 of modalresult = 1thenif macouleur ≠ "" then put maCouleur into fld "monéchiquier"else put "40703,40128,40559" into fld "monéchiquier"end ifrepeat with a = word 1 of item 2 of ordre to word 3 of item 2 of ordreif line a of modalresult = 1thenif "plus" is in ordrethenif a = word 3 of item 2 of ordrethenput "persoRosa" into lequelput "Damier R./Pièces " into unemelse if a = word 2 of item 2 of ordrethenput "persocæla" into lequelput "Damier C./Pièces " into unemelse if a = word 1 of item 2 of ordrethenput "persoPetra" into lequelput "Damier P./Pièces " into unemend ifelseif a = word 1 of item 2 of ordrethenput "persostandard" into lequelput "Damier/Pièces " into unemelse if a = word 2 of item 2 of ordrethenput "persobois" into lequelput "Damier B./Pièces " into unemelse if a = word 3 of item 2 of ordrethenput "persomarbre" into lequelput "Damier M./Pièces " into unemend ifend ifset name of me to lequelend ifend repeatnetaffichageunlock screenif line 17 of modalresult = 1thenput "" into fld mespiècesset style of btn id 278 to "transparent"put "M." after unemelseput "standard" into fld mespiècesset style of btn id 278 to "transparent"end ifif line 18 of modalresult = 1thenset style of btn id 278 to "opaque"if last char of unem = " " then put "(symb.)" after unemelse put " (symb.)" after unemelseif last char of unem = " "thenput "…" into last char of unemend ifend ifput unem into menuitem 11 of menu 5 with menumessages "Damier"put "" into macouleurput "" into modalresultshow btn 1mnémoend mousebis</script>
</part>
<part>
<id>279</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>428</left>
<top>289</top>
<right>455</right>
<bottom>312</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>condense</textStyle>
<name>64,48,576,432</name>
<script>on mouseUpset hilite of btn id 345 to trueset hilite of btn id 345 to falseif the screenrect = "0,0,512,384"thenif the rect of the card window Γëá "0,4,512,384"thenlock screenset the textsize of btn id 371 of card 2 to 18set rect of btn id 371 of card 2 to 37,364,122,384unlock screenset name of btn id 279 of card 2 to the rect of the card windowset the rect of the card window to 0,4,512,384else set the rect of card window to short name of btn id 279 of card 2set name of btn id 345 of card 2 to "10"elselock screenset the textsize of btn id 371 of card 2 to 24set the rect of btn id 371 of card 2 to 37,364,152,388unlock screenput the trunc of ((item 3 of the screenrect-512)/2) into lgput the trunc of ((item 4 of the screenrect-384)/2) into htput lg & "," & ht & "," & lg+512 & "," & ht+384 into posif the rect of the card window Γëá posthenset name of btn id 279 of card 2 to the rect of the card windowset the rect of card window to poselse set the rect of the card window to short name of btn id 279 of card 2if the screenrect = "0,0,640,480" then set name of btn id 345 of card 2 to "14"else if the screenrect = "0,0,832,624" then set name of btn id 345 of card 2 to "16"else if the screenrect = "0,0,1152,870" then set name of btn id 345 of card 2 to "21"end ifend mouseUpon placeif the screenrect = "0,0,512,384"thenif cd fld sauver of card 2 = "" and cd fld suspendre of card 2 = ""thenlock screenset the textsize of btn id 371 of card 2 to 18set rect of btn id 371 of card 2 to 37,364,122,384unlock screenset name of btn id 279 of card 2 to the rect of the card windowset the rect of the card window to 0,4,512,384end ifset name of btn id 345 of card 2 to "10"elselock screenset the textsize of btn id 371 of card 2 to 24set the rect of btn id 371 of card 2 to 37,364,152,388unlock screenput the trunc of ((item 3 of the screenrect-512)/2) into lgput the trunc of ((item 4 of the screenrect-384)/2) into htput lg & "," & ht & "," & lg+512 & "," & ht+384 into posif cd fld sauver of card 2 = "" and cd fld suspendre of card 2 = ""thenset name of btn id 279 of card 2 to the rect of the card windowset the rect of card window to posend ifif the screenrect = "0,0,640,480" then set name of btn id 345 of card 2 to "14"else if the screenrect = "0,0,832,624" then set name of btn id 345 of card 2 to "16"else if the screenrect = "0,0,1152,870" then set name of btn id 345 of card 2 to "21"end ifend place</script>
<script>on mousewithinif the shiftkey is upthenif the checkmark of menuitem 7 of menu 5 is true then exit mousewithinput "- - . - - . - -" into cd fld tempselseif the optionkey is downthenput "Total" && the number of lines of fld "niveau1" + the number of lines of fld "niveau2" + ¬the number of lines of fld "niveau3" + the number of lines of fld "niveau4" + ¬the number of lines of fld "niveau5" + the number of lines of fld "niveau6" into cd fld tempswait 1 secondselseget short name of btn id 294delete char offset (" ",it) of itput the number of lines of fld it & " mos." into cd fld tempswait 1 secondsend ifend ifend mousewithinon mouseleaveif the checkmark of menuitem 7 of menu 5 is true then exit mouseleaveput "- - . - - . - -" into cd fld tempsend mouseleaveon mouseupif the commandkey is down or the optionkey is downthensend config && "362,48,352,294" to btn quitterexit mouseupend ifif visible of btn "jouer1" is true or style of btn jouer = opaque or style of btn créer = opaque then exit mouseupwait 8 ticksif the mouseclickthen niveauend mouseupon niveauglobal alumput "hidden,hidden,hidden,hidden,hidden,hidden" into nmput "" into item (last word of short name of btn id 294) of nmput last word of short name of btn id 294 into alumif the screenrect = "0,0,512,384"thenif the rect of the card window ≠ "0,4,512,384"thenput the trunc of ((item 3 of the screenrect-102)/2) into Xput the trunc of ((item 4 of the screenrect-323)/2) into Yelseput 389 into Xput 35 into Yend ifelse if the screenrect = "0,0,640,480"thenif the rect of the card window ≠ "64,48,576,432"thenput the trunc of ((item 3 of the screenrect-102)/2) into Xput the trunc of ((item 4 of the screenrect-323)/2) into Yelseput 453 into Xput 79 into Yend ifelseput the trunc of ((item 3 of the screenrect-102)/2) into Xput the trunc of ((item 4 of the screenrect-323)/2) into Yend ifput "btnctrl,touchexit" & return & "btnctrl,touchexit" & return &¬"chkCtrl,,0,1,change1" & return & "chkCtrl,,0,1,change2" & return &¬"chkCtrl,,0,1,change3" & return & "chkCtrl,,0,1,change4" & return &¬"chkCtrl,,0,1,change5" & return & "chkCtrl,,0,1,change6" & return &¬"PictItem" & return & "PictItem," & item 1 of nm & return &¬"PictItem," & item 2 of nm & return & "PictItem," & item 3 of nm & return &¬"PictItem," & item 4 of nm & return & "PictItem," & item 5 of nm & return &¬"PictItem," & item 6 of nm & return & "STATICtext" into DLItemListget ModalDialog(Niveau,DLItemList,X,Y,default)if it = 2 then exit niveauif alum = 1 then put "un" into icelse if alum = 2 then put "deux" into icelse if alum = 3 then put "trois" into icelse if alum = 4 then put "quatre" into icelse if alum = 5 then put "cinq" into icelse put "sis" into icset name of btn id 294 to "Niveau " & alumset icon of btn id 294 to icput short name of btn id 294 & "…" into menuitem 1 of menu 5 with menumessages niveauset the commandchar of menuitem 1 of menu 5 to "J"if the checkmark of menuitem 3 of menu 5 = falsethenif last word of short name of btn id 294 is in "36"then set icon of btn position to "croix2"else set icon of btn position to "croix"end ifend niveauon nouveauniveauset name of btn id 294 to "Niveau " & word 1 of line 2 of cd fld combinaisonif word 1 of line 2 of cd fld combinaison = 1then set icon of btn id 294 to "un"else if word 1 of line 2 of cd fld combinaison = 2then set icon of btn id 294 to "deux"else if word 1 of line 2 of cd fld combinaison = 3then set icon of btn id 294 to "trois"else if word 1 of line 2 of cd fld combinaison = 4then set icon of btn id 294 to "quatre"else if word 1 of line 2 of cd fld combinaison = 5then set icon of btn id 294 to "cinq"else set icon of btn id 294 to "sis"put short name of btn id 294 & "…" into menuitem 1 of menu 5 with menumessages niveauset the commandchar of menuitem 1 of menu 5 to "J"end nouveauniveauon ancienniveauglobal quelnivset name of btn id 294 to "Niveau " & quelnivif quelniv = 1then set icon of btn id 294 to "un"else if quelniv = 2then set icon of btn id 294 to "deux"else if quelniv = 3then set icon of btn id 294 to "trois"else if quelniv = 4then set icon of btn id 294 to "quatre"else if quelniv = 5then set icon of btn id 294 to "cinq"else set icon of btn id 294 to "sis"put short name of btn id 294 & "…" into menuitem 1 of menu 5 with menumessages niveauset the commandchar of menuitem 1 of menu 5 to "J"if the checkmark of menuitem 3 of menu 5 = falsethenif last word of short name of btn id 294 is in "36"then set icon of btn position to "croix2"else set icon of btn position to "croix"end ifend ancienniveauon effacementglobal annul,annulkalei,annulkalei2,kalei,dest,lavar,troispart,inversion,psto,déb,fin,ens,chrono,quelledir,blocdiag,avortdiag,quidiag,blocniv,libre,combien,parkalei,¬ssclr,antér,blocflashput "- - . - - . - -" into cd fld tempsset cursor to watchput "" into libreput "" into parkaleiput "" into combienput "" into ssclrput "" into antérput "" into blocflashdisable menuitem 8 of menu 2lock screenset loc of btn 1 to loc of btn 26if style of btn id 278 = opaque then set name of btn 26 to ""set loc of btn position to loc of btn 76put "oui" into troispartset style of btn "bonusmalus" to transparentset icon of btn enregistrer to 0enable menuitem 4 of menu 3set the checkmark of menuitem 4 of menu 5 to falseaffichagecolorizeHC "add","btnnouveaujeual",item 1 to 2 of rect of btn jouerif style of btn id 278 = opaquethenrepeat with a = 2 to 50set name of btn a to ""end repeatend ifif style of btn id 314 = opaque then verserif style of btn "chrono" = transparent then set style of btn "chrono" to rectangleif style of btn "compt" = transparent then set style of btn "compt" to rectangleunlock screenput ",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,," into cd fld solutionset name of btn id 142 to 26put "" into lavarput "26" into destput "" into chronoput "" into pstoput "" into débput "" into finput "" into ensput "" into annulput "" into annulkaleiput "" into annulkalei2put "" into quelledirput "" into blocdiagput "" into avortdiagput "" into quidiagput "" into blocnivput "B J M O R M V B" into kaleiif "- -" is not in cd fld coupsthenput line 1 of cd fld décompte into line 2 of cd fld décompteput line 1 of cd fld décompte into cd fld coupselse put "- -" into cd fld coupsif last word of short name of btn id 294 is in "36" then send voyantal to btn jouerif "interrompre" is in menuitem 1 of menu 2 then disable menuitem 8 of menu 2set icon of btn 1 to ""if icon of btn id 269 = "0"thenplay stopplay trzim gelseput "OK" into cd fld tempswait 1 secput "- - . - - . - -" into cd fld tempsend ifend effacementon direct xif the enabled of menuitem 1 of menu 5 is falsethenbeepexit directend ifset name of me to "Niveau " & xif x = 1then set icon of btn id 294 to "un"else if x = 2then set icon of btn id 294 to "deux"else if x = 3then set icon of btn id 294 to "trois"else if x = 4then set icon of btn id 294 to "quatre"else if x = 5then set icon of btn id 294 to "cinq"else if x = 6thenset icon of btn id 294 to "sis"end ifput short name of me & "…" into menuitem 1 of menu 5 with menumessages niveauset the commandchar of menuitem 1 of menu 5 to "J"if the checkmark of menuitem 3 of menu 5 = falsethenif last word of short name of btn id 294 is in "36"then set icon of btn position to "croix2"else set icon of btn position to "croix"end ifend direct</script>
</part>
<part>
<id>298</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>465</left>
<top>191</top>
<right>500</right>
<bottom>208</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>condense</textStyle>
<textHeight>13</textHeight>
<name>Coups</name>
<script></script>
</part>
<part>
<id>296</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>469</left>
<top>184</top>
<right>496</right>
<bottom>208</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpsend mouseup to btn "compt"end mouseUp</script>
</part>
<part>
<id>304</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>386</left>
<top>322</top>
<right>404</right>
<bottom>336</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>22055</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Options</name>
<script>on mouseUpset icon of btn optionscache to ""get the script of meput word 1 of last line of it into ouvrput word 1 of last line of it into fermif the number of words of last line of it > 1 then put word 2 of last line of it into attelse put 0 into attput "" into itget the secondswait 4 ticksif the mouseclickthenask "Indiquez un nombre entier (entre 1 et 9), pour synchroniser la durée du bruitage et" ¬& " la vitesse d'ouverture/fermeture du cache." with 5if the result = "cancel" or it = "" or char 1 of word 1 of it is not in "0123456789"thenbeepanswer "Rétablir les réglages par défaut ?" with "Annuler" or "OK"if it is "annuler"thenset icon of btn optionscache to "sésame"exit mouseupelseget the script of meif "end mouseup" is not in last line of it then put "5 0" into last line of itelse put return & "5 0" into last line of itset the script of me to itput 5 into ouvrput 5 into fermput 0 into attend ifelseif word 1 of it ≤ 0 then put 1 into word 1 of itput word 1 of it into ouvrput word 1 of it into fermif word 2 of it ≠ "" then put word 2 of it into attelse put 0 into attget the script of meif "end mouseup" is not in last line of it then put ouvr && att into last line of itelse put return & ouvr && att into last line of itset the script of me to itend ifend ifif the visible of btn optionscache is truethenif icon of btn id 269 = "0"thenplay stopplay ptclicend ifput "384,287,498,338" into décroisset icon of btn optionscache to ""if icon of btn id 269 = "0"thenplay stopplay sésame2end ifrepeat with a = 498 down to 384subtract ouvr from item 3 of décroisset rect of btn optionscache to decroisif item 3 of rect of btn optionscache < 384 then exit repeatwait att ticksend repeathide btn optionscacheset icon of me to "0"set rect of btn optionscache to 384,287,498,338set icon of btn optionscache to "sésame"elseif icon of btn id 269 = "0"thenplay stopplay ptclicend ifset icon of me to "point"set rect of btn optionscache to "384,287,384,338"set icon of btn optionscache to 0show btn optionscacheput "384,287,384,338" into croisif icon of btn id 269 = "0"thenplay stopplay sésame1end ifrepeat with a = 384 to 498if item 3 of rect of btn optionscache + ferm ≥ 498thenput 498 into item 3 of croisset rect of btn optionscache to croisexit repeatend ifadd ferm to item 3 of croisset rect of btn optionscache to croiswait att ticksend repeatset rect of btn optionscache to 384,287,498,338set icon of btn optionscache to "sésame"end ifend mouseUp5 5</script>
</part>
<part>
<id>313</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>404</left>
<top>311</top>
<right>428</right>
<bottom>336</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>BonusMalus</name>
<script>on mouseUpif icon of me = 29812 then exit mouseupif style of btn "bonusmalus" = transparentthenlock screencolorizeHC "add","btnB/Mal",item 1 to 2 of rect of btn bonusmalusunlock screenelselock screencolorizeHC "add","btnB/Mét",item 1 to 2 of rect of btn bonusmalusunlock screenend ifif icon of btn id 269 = "0"thenplay stopplay ptclicend ifactiverend mouseUpon activerglobal lavar,dest,kalei,parkalei,libre,combien,ssclr,antér,annul,annulkalei,annulkalei2,alea,quelledirif style of btn bonusmalus = transparentthenif "interrompre" is in menuitem 1 of menu 2 and icon of btn "enregistrer" = 0thenbeepanswer "ATTENTION !" & return & return & "Le choix de l'option «Bonus/malus» désactive la fonction" ¬& " d'enregistrement de la mosaïque (non sa sauvegarde), jusqu'à effacement du damier ou interruption du jeu." & return & return & "Veuillez confirmer." ¬with "Annuler" or "OK"if it is "annuler"thenlock screencolorizeHC "add","btnB/Mét",item 1 to 2 of rect of btn bonusmalusunlock screenexit activerelseset icon of btn "enregistrer" to 29812disable menuitem 4 of menu 3end ifend ifset style of btn bonusmalus to opaqueset the checkmark of menuitem 4 of menu 5 to trueelseset style of btn bonusmalus to transparentset the checkmark of menuitem 4 of menu 5 to falseif ssclr ≠ ""thenrepeat 4put "Ø" into cd fld tempsput "" into cd fld tempsend repeatlock screencolorizeHC "add","barrevoyantsét","381,142"colorizehc "add",quelledir,rect of btn destunlock screenend iflock screencolorizeHC "add","btnB/Mét",item 1 to 2 of rect of btn bonusmalusunlock screenlock screenput "" into libreput "" into parkaleiput "" into combienput "" into ssclrput "" into antérput "B J M O R M V B" into kaleiput "B J M O R M V B" into annulkaleiput "B J M O R M V B" into annulkalei2if last word of short name of btn id 294 is in "23"thenif last word of short name of btn id 294 = 3 and the number of words of line 3 of annul ≥ 3thenelseif char 1 of last word of line 3 of annul = "M"thenput "J M R B B O M V, V M O B B R M J" into aleaput item random (2) of alea into kelse if char 1 of last word of line 3 of annul = "B"thenput "R B V M M J B O, O B J M M V B R" into aleaput item random (2) of alea into kelse if char 1 of last word of line 3 of annul = "V" then put "B J M O R M V B" into kelse if char 1 of last word of line 3 of annul = "O" then put "M R B J V B O M" into kelse if char 1 of last word of line 3 of annul = "J" then put "B V M R O M J B" into kelse if char 1 of last word of line 3 of annul = "R" then put "M O B V J B R M" into kput k into annulkaleiput k into annulkalei2end ifend ifunlock screenput "- - . - - . - -" into cd fld tempsend ifend activeron réactiverglobal parkalei,libre,combien,ssclr,antérif style of btn bonusmalus = transparentthenlock screencolorizeHC "add","btnB/Mal",item 1 to 2 of rect of btn bonusmalusunlock screenset style of btn bonusmalus to opaqueset the checkmark of menuitem 4 of menu 5 to trueelseset style of btn bonusmalus to transparentset the checkmark of menuitem 4 of menu 5 to falselock screencolorizeHC "add","btnB/Mét",item 1 to 2 of rect of btn bonusmalusunlock screenput "" into libreput "" into parkaleiput "" into combienput "" into ssclrput "" into antérend ifend réactiver</script>
</part>
<part>
<id>314</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>452</left>
<top>311</top>
<right>478</right>
<bottom>337</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Inversion</name>
<script>on mouseUpif icon of me = 29812 then exit mouseupverlanif icon of btn id 269 = "0"thenplay stopplay ptclicend ifend mouseUpon activerglobal inversion,unpostinvif style of btn "inversion" = transparentthenset style of btn "inversion" to opaqueset the checkmark of menuitem 6 of menu 5 to truelock screencolorizeHC "add","btninversional",item 1 to 2 of rect of btn "inversion"unlock screenelseset style of btn "inversion" to transparentif visible of bkgnd btn 1 is truethenset cursor to watchverserend ifset the checkmark of menuitem 6 of menu 5 to falselock screencolorizeHC "add","btninversionét",item 1 to 2 of rect of btn "inversion"unlock screenput "" into inversionput "" into unpostinvend ifend activer</script>
</part>
<part>
<id>312</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>406</left>
<top>289</top>
<right>430</right>
<bottom>312</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Touches</name>
<script>on mouseUpif icon of btn id 269 = "0"thenplay stopplay ptclicend ifchgertouchesend mouseUpon chgertouchesglobal modalresultput the trunc of ((item 3 of the screenrect-260)/2) into Xput the trunc of ((item 4 of the screenrect-324)/2) into Yput "btnctrl,touchexit" & return & "btnctrl,touchexit" & return & ¬"PictItem" & return & "STATICtext" & return & "editText,," & "Retour arrière *" & return & ¬"editText,1,7" & return & "editText,,8" & return & ¬"editText,,9" & return & "editText,,4" & return & ¬"editText,,6" & return & "editText,,1" & return & ¬"editText,,2" & return & "editText,,3" into DLItemListget ModalDialog("Touches",DLItemList,X,Y,default)set cursor to busyif it = 2 then exit chgertouchesget line 11 to 13 of modalresult & return & line 9 to 10 of modalresult & return & line 6 to 8 of modalresult & return & line 5 of modalresultif it is in "1" & return & "2" & return & "3" & return & "4" & return & "6" & return & "7" & return & "8" & return & "9" & return & "Retour arrière *" & returnthenput "1" & return & "2" & return & "3" & return & "4" & return & "6" & return & "7" & return & "8" & return & "9" & return into cd fld touchesrepeat with a = 1 to 8put the chartonum of char 1 of line a of cd fld touches into line a + 9 of cd fld touchesend repeatput 8 into line 18 of cd fld touchesput "Touches…" into menuitem 14 of menu 5 with menumessages clavierset the checkmark of menuitem 14 of menu 5 to falseelseset the checkmark of menuitem 14 of menu 5 to trueif it is empty or it is in "1" & return & "2" & return & "3" & return & "4" & return & "6" & return & "7" & return & "8" & return & "9" & return & "Retour arrière *" & returnthenset the checkmark of menuitem 14 of menu 5 to falseexit chgertouchesend ifput it into cd fld touchesrepeat with a = 1 to 8if line a of cd fld touches = ""thenif a = 1thenput 1 into line a of cd fld touchesput the chartonum of (1) into line a + 9 of cd fld toucheselse if a = 2thenput 2 into line a of cd fld touchesput the chartonum of (2) into line a + 9 of cd fld toucheselse if a = 3thenput 3 into line a of cd fld touchesput the chartonum of (3) into line a + 9 of cd fld toucheselse if a = 4thenput 4 into line a of cd fld touchesput the chartonum of (4) into line a + 9 of cd fld toucheselse if a = 5thenput 6 into line a of cd fld touchesput the chartonum of (6) into line a + 9 of cd fld toucheselse if a = 6thenput 7 into line a of cd fld touchesput the chartonum of (7) into line a + 9 of cd fld toucheselse if a = 7thenput 8 into line a of cd fld touchesput the chartonum of (8) into line a + 9 of cd fld toucheselse if a = 8thenput 9 into line a of cd fld touchesput the chartonum of (9) into line a + 9 of cd fld touchesend ifelseput the chartonum of char 1 of line a of cd fld touches into line a + 9 of cd fld touchesend ifif the number of chars of line a of cd fld touches > 1 then put "" into char 2 to (the number of chars of line a of cd fld touches) of line a of cd fld touchesend repeatif line 9 of cd fld touches = "" or line 9 of cd fld touches = "Retour arrière *"thenput "(arrière)" into line 9 of cd fld touchesput 8 into line 18 of cd fld toucheselse put the chartonum of char 1 of line 9 of cd fld touches into line 18 of cd fld touchesput "Touches " & line 6 of cd fld touches & "/" & line 7 of cd fld touches & "/" & line 8 of cd fld touches & "/" & line 4 of cd fld touches ¬& "/" & line 5 of cd fld touches & "/" & line 1 of cd fld touches & "/" & line 2 of cd fld touches & "/" & line 3 of cd fld touches & "/" & line 9 of cd fld touches ¬into menuitem 14 of menu 5 with menumessages clavierset the checkmark of menuitem 14 of menu 5 to trueend ifend chgertouches</script>
</part>
<part>
<id>319</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>382</left>
<top>159</top>
<right>416</right>
<bottom>181</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>29812</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>jouer1</name>
<script>on mouseUpsend mouseup to btn cloneend mouseUp</script>
</part>
<part>
<id>320</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>414</left>
<top>159</top>
<right>448</right>
<bottom>181</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>29812</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>jouer2</name>
<script>on mouseUpsend mouseup to btn cloneend mouseUp</script>
</part>
<part>
<id>321</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>446</left>
<top>159</top>
<right>480</right>
<bottom>181</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>29812</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Jouer3</name>
<script>on mouseUpsend mouseup to btn cloneend mouseUp</script>
</part>
<part>
<id>322</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>479</left>
<top>155</top>
<right>499</right>
<bottom>182</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>29812</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>jouer4</name>
<script>on mouseUpsend mouseup to btn cloneend mouseUp</script>
</part>
<part>
<id>340</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>12</left>
<top>0</top>
<right>24</right>
<bottom>12</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Rejouer</name>
<script></script>
</part>
<part>
<id>341</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>476</left>
<top>340</top>
<right>496</right>
<bottom>361</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Retour</name>
<script>on mouseupif icon of me = 29812 then exit mouseupwait 6 ticksif the mouseclickthenbeepanswer "Voulez-vous désactiver le message d'alerte de ce bouton ?" with "Annuler" or "OK"if it is "annuler" then exit mouseupelseget script of meput "-- on mouseup" into line 1 of itset script of me to itrepeat 4put "Désactivé" into cd fld tempswait 4 ticksput "" into cd fld tempsend repeatput "- - . - - . - -" into cd fld tempsend ifexit mouseupend ifif icon of btn id 269 = "0"thenplay stopplay ptclicend ifanswer "Veuillez confirmer l'instruction : " & return & return & "«Retour à la carte de provenance»." & return & return with "Annuler" or "OK"if it is "annuler" then exit mouseupgo backend mouseUpon mouseUpif icon of me = 29812 then exit mouseupwait 6 ticksif the mouseclickthenbeepanswer "Voulez-vous activer le message d'alerte de ce bouton ?" with "Annuler" or "OK"if it is "annuler" then exit mouseupelseget script of meput "on mouseup" into line 1 of itset script of me to itrepeat 4put "Activé" into cd fld tempswait 4 ticksput "" into cd fld tempsend repeatput "- - . - - . - -" into cd fld tempsexit mouseupend ifend ifif icon of btn id 269 = "0"thenplay stopplay ptclicend ifgo backend mouseUpon importif the commandkey is downthenask "Indiquez le nom du fichier contenant les mosaïques à importer dans le seul Niveau " & last word of short name of btn id 294 & " …"put "oui" into slelse ask "Indiquez le nom du fichier contenant les mosaïques à importer dans les 6 Niveaux …"if it = "" or the result = cancel then exit importput it into feropen file ferread from file fer until "•"if it = ""thenbeepanswer "Le fichier «" & fer & "» est vide." & return & returnelseset cursor to busyput it into mosaicdelete char offset ("•",mosaic) of mosaic-- if "fichier" = name of menu 2 and ("y" is in mosaic or "g" is in mosaic)-- then-- repeat while "y" is in mosaic or "g" is in mosaic-- if "y" is in mosaic then put "J" into char offset ("y",mosaic) of mosaic-- if "g" is in mosaic then put "V" into char offset ("g",mosaic) of mosaic-- end repeat-- else if "file" = name of menu 2 and ("y" is in mosaic or "v" is in mosaic)-- then-- repeat while "v" is in mosaic or "j" is in mosaic-- if "j" is in mosaic then put "Y" into char offset ("j",mosaic) of mosaic-- if "v" is in mosaic then put "G" into char offset ("v",mosaic) of mosaic-- end repeat-- end ifput 0 into decput 0 into nbput 0 into cd fld tempsput "" into plnput 0 into dubput mosaIc into last cd fldrepeat with a = 1 to the number of lines of mosaicif line a of mosaic = "" or last char of line a of mosaic is not in "123456" or last char of line a of mosaic is in pln or "oui" is in slthenif "oui" is in slthenif last char of line a of mosaic ≠ last word of short name of btn id 294thennext repeatend ifelseadd 1 to decnext repeatend ifend ifif "oui" is in sl then put "niveau" & last word of short name of btn id 294 into cpelse put "niveau" & last char of line a of mosaic into cpif the number of lines of fld cp < 30000thenget char 1 to (the number of chars of line a of mosaic)-1 of line a of mosaicif "oui" is in slthenif last char of line a of mosaic = last word of short name of btn id 294thenadd 1 to cd fld tempsif it is not in fld cpthenif fld cp is not empty and last char of fld cp ≠ return then put return after fld cpput it after fld cpadd 1 to nbelse add 1 to dubend ifelseadd 1 to cd fld tempsif it is not in fld cpthenif fld cp is not empty and last char of fld cp ≠ return then put return after fld cpput it after fld cpadd 1 to nbelse add 1 to dubend ifelseif "oui" is in slthenif last char of line a of mosaic = last word of short name of btn id 294thenadd 1 to cd fld tempsif it is not in fld cpthenif last char of line a of mosaic is not in pln then put last char of line a of mosaic after plnadd 1 to decend ifend ifelseadd 1 to cd fld tempsif last char of line a of mosaic is not in pln then put last char of line a of mosaic after plnadd 1 to decend ifend ifend repeatget cd fld tempsrepeat 4put "Terminé" into cd fld tempswait 8 ticksput "" into cd fld tempsend repeatput "- - . - - . - -" into cd fld tempsif nb = 0 then put "Aucune mosaïque (sur " & it & ") n'a été importée." into nbelse if nb > 1 then put " mosaïques (sur " & it & ") ont été importées." after nbelse put " seule mosaïque (sur " & it & ") a été importée." after nbif dec = 0 then put "" into decelse if dec = 1 then put " échec. " after decelse put " échecs. " after decif dub >1 then put dub & " doublons ignorés." after decelse if dub = 1 then put "1 doublon ignoré." after decif pln ≠ ""thenrepeat with a = 1 to 6if a is in plnthen put a & "," after vidend repeatdelete last char of vidif the number of chars of vid = 1 then put return & "La bibliothèque de mosaïques du Niveau " & vid & " est pleine." after decelse put return & "La bibliothèque de mosaïques des Niveaux " & vid & " est pleine." after decend ifanswer nb & return & return & decend ifclose file ferend importon exportput last word of short name of btn id 294 into nput "niveau" & n into nnif the commandkey is downthenput "oui" into slif the shiftkey is upthenif the number of lines of fld nn = 0thenanswer "Le Niveau " & n & " ne contient aucune mosaïque."exit exportend ifput "toutes les mosaïques (" & the number of lines of fld nn & ") du Niveau " & n & " …" into vrelseput "oui" into dblif the number of lines of fld nn = 0thenanswer "Le Niveau " & n & " ne contient aucune mosaïque."exit exportend ifput "la dernière mosaïque (N° " & the number of lines of field nn & ") du Niveau " & n & " …" into vrend ifelseget fld niveau1 & return & fld niveau2 & return & fld niveau3 & return & fld niveau4 & return & fld niveau5 & return & fld niveau6if it ≠ ""thenput "l'ensemble des mosaïques (" & (the number of lines of fld niveau1 + the number of lines of fld niveau2 + ¬the number of lines of fld niveau3 + the number of lines of fld niveau4 + ¬the number of lines of fld niveau5 + the number of lines of fld niveau6) & ") des 6 Niveaux …" into vrelseanswer "Les 6 Niveaux sont vides."exit exportend ifend ifask "Indiquez le nom du fichier vers lequel exporter " & vrif it = "" or the result = cancel then exit exportput it into ferset cursor to busyopen file ferread from file fer until "•"delete char offset ("•",it) of itput it into texclose file feropen file ferwrite "" to file ferput 0 into cd fld tempsput 0 into decput "0" into nbif sl = "oui"thenif dbl = "oui"thenadd 1 to cd fld tempsif last line of fld nn is not in texthenif tex ≠ "" and last char of tex ≠ return then put return after texput last line of fld nn & n & return after texadd 1 to nbelseadd 1 to decend ifelserepeat with a = 1 to the number of lines of fld nnadd 1 to cd fld tempsif line a of fld nn = "" or line a of fld nn is in texthenif line a of fld nn = "" then delete line a of fld nnelse add 1 to decnext repeatend ifadd 1 to nbif tex ≠ "" and last char of tex ≠ return then put return after texput line a of fld nn & n & return after texend repeatend ifelserepeat with b = 1 to 6put b into last char of nnrepeat with a = 1 to the number of lines of fld nnadd 1 to cd fld tempsif line a of fld nn = "" or line a of fld nn is in texthenif line a of fld nn = "" then delete line a of fld nnelse add 1 to decnext repeatend ifadd 1 to nbif tex ≠ "" and last char of tex ≠ return then put return after texput line a of fld nn & b & return after texend repeatend repeatend ifif last char of tex ≠ return then put return after texput "•" after texwrite tex to file ferclose file ferget cd fld tempsrepeat 4put "Terminé" into cd fld tempswait 8 ticksput "" into cd fld tempsend repeatput "- - . - - . - -" into cd fld tempsif "oui" is in sl and "oui" is in dbl and nb = 0 then put "La dernière mosaïque du Niveau " & last word of short name of btn id 294 & " n'a pas été exportée …" into nbelse if nb = 0 then put "Aucune mosaïque (sur " & it & ") n'a été exportée." into nbelse if nb > 1 then put " mosaïques (sur " & it & ") ont été exportées." after nbelseif "oui" is in sl and "oui" is in dblthenput "La dernière mosaïque du Niveau " & last word of short name of btn id 294 & " a été exportée …" into nbelse put " seule mosaïque a été exportée." after nbend ifIF DEC = 0 then put "" into decelse if dec = 1 then put " doublon ignoré." after decelse put " doublons ignorés." after decanswer nb & return & return & decend exporton reconstruireglobal lavar,dest,kalei,quelledir,ssclr,antérif quelledir = "" then put word 1 of short name of btn 1 & "1" into quellediraffichagecolorizeHC "add", short name of btn id 278 & "1",item 1 to 2 of rect of fld "monéchiquier"set icon of btn 1 to ""if "jouer" is in line 300 of cd fld suspendrethencolorizehc "add","btnnouveaujeual",item 1 to 2 of rect of btn jouervoiler falserepeat until the lockscreen is falseunlock screenend repeatif ",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,," = item 1 to 49 of cd fld solutionthen put "Affichage" into cd fld tempselse put "Redessin" into cd fld tempslock screenif antér ≠ "" then colorizeHC "add",item 1 of antér,item 2 to 3 of antérrepeat with i = 52 to 100set cursor to (i+176)set name of btn (i-50) to ""if item (i-51) of cd fld combinaison = ""then colorizeHC "add","ptbtngris",rect of btn iif last word of short name of btn id 294 is in "36"thenif last word of short name of btn id 294 = 3thensend q && "," & i & "," & (char 1 of word 3 of item i-51 of cd fld combinaison) & "," & combinaison to btn jouersend q && "," & i-50 & "," & (char 1 of word 3 of item i-51 of cd fld solution) & "," & solution to btn jouerelsesend char i of fld formes && "," & i & "," & (char 1 of word 3 of item i-51 of cd fld combinaison) & "," & combinaison to btn jouersend char i of fld formes && "," & i-50 & "," & (char 1 of word 3 of item i-51 of cd fld solution) & "," & solution to btn jouerend ifelseif last word of short name of btn id 294 is in "12"thenput "ptbtn" & item (i-51) of cd fld combinaison & "2" into nivcoulput fld mespièces & "btn" & item (i-51) of cd fld solution & "2" into nivcoulrejelse if last word of short name of btn id 294 is in "45"thenput "ptbtn" & item (i-51) of cd fld combinaison into nivcoulput fld mespièces & "btn" & item (i-51) of cd fld solution into nivcoulrejend ifif item (i-51) of cd fld solution ≠ "" then colorizeHC "add",nivcoulrej,rect of btn (i-50)colorizeHC "add",nivcoul,rect of btn iend ifif (i-50) = destthenif ssclr = ""thenif last word of short name of btn id 294 = 1 or item dest-1 of cd fld solution = "" ¬or (the number of words of item dest-1 of cd fld solution = 3 and last word of short name of btn id 294 = 3) ¬or ("v" is in last word of item dest-1 of cd fld solution and last word of short name of btn id 294 is in "123") ¬or ("v" is in last word of item dest-1 of cd fld solution and "3" is not in last word of item dest-1 of cd fld solution)thencolorizeHC "add",quelledir,rect of btn (i-50)elseif "3" is not in last word of item dest-1 of cd fld solution and the number of words of item dest-1 of cd fld solution < 3thencolorizeHC "add","N" & word 7 of kalei,rect of btn (i-50)colorizeHC "add",quelledir, rect of btn 1elseif last word of short name of btn id 294 = 3thencolorizeHC "add",quelledir, rect of btn (i-50)elsecolorizeHC "add","ptbtngris",rect of btn (i-50)colorizeHC "add",quelledir, rect of btn 1end ifend ifend ifelsecolorizeHC "add","ptbtn" & ssclr & "2",rect of btn (i-50)colorizeHC "add",quelledir, rect of btn 1end ifelse if (i-50) ≠ dest and style of btn id 278 = opaque and item (i-51) of cd fld solution ≠ "" then marquer (i-50)end repeatelse if "créer" is in line 300 of cd fld suspendrethencolorizeHC "add","cachéch",item 1 to 2 of rect of btn id 230colorizehc "add","btncréeral",item 1 to 2 of rect of btn créervoiler falserepeat until the lockscreen is falseunlock screenend repeatif ",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,," = item 1 to 49 of cd fld solutionthen put "Affichage" into cd fld tempselse put "Redessin" into cd fld tempslock screenrepeat with a = 2 to 50set cursor to a+226if a = destthenif last word of short name of btn id 294 = 1 or item dest-1 of cd fld solution = "" ¬or ("v" is in last word of item dest-1 of cd fld solution and last word of short name of btn id 294 is in "123") ¬or ("v" is in last word of item dest-1 of cd fld solution and "3" is not in last word of item dest-1 of cd fld solution)thencolorizeHC "add",quelledir, rect of btn aelseif "3" is not in last word of item dest-1 of cd fld solution and the number of words of item dest-1 of cd fld solution < 3thencolorizeHC "add","N" & word 7 of kalei,rect of btn acolorizeHC "add",quelledir, rect of btn 1elseif last word of short name of btn id 294 = 3thencolorizeHC "add",quelledir, rect of btn aelsecolorizeHC "add","ptbtngris",rect of btn acolorizeHC "add",quelledir, rect of btn 1end ifend ifend ifelseif last word of short name of btn id 294 is in "36" and item a-1 of cd fld solution ≠ ""thenif last word of short name of btn id 294 = 3then send q && "," & a & "," & (char 1 of word 3 of item a-1 of cd fld solution) & "," & solution to btn jouerelsesend char a of fld formes & "," & a & "," & (char 1 of word 3 of item a-1 of cd fld solution) & "," & solution to btn jouerend ifelseif last word of short name of btn id 294 ≤ 3 then put 2 into alastelse put "" into alastcolorizeHC "add",fld mespièces & "btn" & word 1 of item a-1 of cd fld solution & alast,rect of btn aif style of btn id 278 = opaque and item a-1 of cd fld solution ≠ "" then marquer aend ifend ifend repeatend ifunlock screenif icon of btn id 269 = "0"thenplay stopplay trzim gelseput "OK" into cd fld tempswait 1 secend ifput "- - . - - . - -" into cd fld tempsend reconstruire</script>
</part>
<part>
<id>342</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>84</left>
<top>0</top>
<right>96</right>
<bottom>12</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Suspendre</name>
<script></script>
</part>
<part>
<id>345</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>432</left>
<top>293</top>
<right>449</right>
<bottom>307</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>8</textSize>
<textStyle>plain</textStyle>
<name>14</name>
<script>on mouseUpsend mouseup to btn id 279end mouseUp</script>
</part>
<part>
<id>346</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>384</left>
<top>287</top>
<right>498</right>
<bottom>338</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>30192</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Optionscache</name>
<script>on mouseUpsend mouseup to btn optionsend mouseUp</script>
</part>
<part>
<id>352</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>423</left>
<top>209</top>
<right>463</right>
<bottom>222</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>condense</textStyle>
<name></name>
<script></script>
</part>
<part>
<id>353</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>384</left>
<top>209</top>
<right>420</right>
<bottom>222</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<name>Chrono</name>
<script>on mouseUpif the commandkey is down or the optionkey is downthensend config && "353,47,195,353" to btn quitterexit mouseupend ifif style of me = transparent and (style of btn jouer = opaque or style of btn créer = opaque) then exit mouseupget the secondswait 8 ticksif the mouseclickthenif "interrompre" is in menuitem 1 of menu fichier then exit mouseupdoubleclicelseif (style of btn jouer = transparent and style of btn créer = transparent) or the checkmark of menuitem 7 of menu 5 = false then exit mouseupset textstyle of btn "chrono" to bold,condenseset textstyle of btn "compt" to plainend ifend mouseUpon doubleclicif the checkmark of menuitem 7 of menu 5 is falsethenask "Combien de minutes vous accordez-vous pour la résolution de la prochaine mosaïque ?" with 15if the result = "Cancel"thenput "" into cd fld chronomètreexit doubleclicelseset cursor to watchrepeat with a = 1 to the number of chars of itif char a of it is not in "0123456789,." or it = "" or it < 1thenbeepanswer "«" & it & "» est une valeur incorrecte." & return & return & "Essayez avec un nombre entier (≠ 0) …"exit doubleclicend ifend repeatif "," is in itthen delete char offset (",",it) to the number of chars of it of itelse if "." is in itthen delete char offset (".",it) to the number of chars of it of itif it > 1440 then put 1440 into itput it into cd fld chronomètreif it > 1 then put "En " & it && "minutes…" into menuitem 7 of menu 5 with menumessages "minuterie"else put "En 1 minute…" into menuitem 7 of menu 5 with menumessages "minuterie"set the checkmark of menuitem 7 of menu 5 to trueend ifget script of this cardput "on idle" into line 1 of itset script of this card to itelseset the checkmark of menuitem 7 of menu 5 to falseget script of this cardput "-- on idle" into line 1 of itset script of this card to itput "- - . - - . - -" into cd fld tempsput "" into cd fld chronomètreput "En N minutes…" into menuitem 7 of menu 5 with menumessages "minuterie"end ifend doubleclic</script>
</part>
<part>
<id>354</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>467</left>
<top>209</top>
<right>497</right>
<bottom>221</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<name>Compt</name>
<script>on mouseUpif the commandkey is down or the optionkey is downthensend config && "354,49,296,354" to btn quitterexit mouseupend ifif style of me = transparent and (style of btn jouer = opaque or style of btn créer = opaque) then exit mouseupget the secondswait 8 ticksif the mouseclickthenif "interrompre" is in menuitem 1 of menu fichier then exit mouseupdoubleclicelseif (style of btn jouer = transparent and style of btn créer = transparent) or the checkmark of menuitem 5 of menu 5 = false then exit mouseupset textstyle of btn "chrono" to plainset textstyle of btn "compt" to bold,condenseend ifend mouseUpon doubleclicif the checkmark of menuitem 5 of menu 5 = truethenset style of me to transparentput "- -" into cd fld coupsput line 1 of cd fld décompte into line 2 of cd fld décompteput "En N coups…" into menuitem 5 of menu 5 with menumessages "compteur"set the checkmark of menuitem 5 of menu 5 to falseelseask "À combien de mouvements voulez-vous vous limiter pour la résolution de la prochaine mosaïque ?" with 500if the result = "cancel"thenput "- -" into cd fld coupselseset cursor to watchrepeat with a = 1 to the number of chars of itif char a of it is not in "0123456789,." or it = "" or it < 1thenbeepanswer "«" & it & "» est une valeur incorrecte." & return & return & "Essayez avec un nombre entier (≠ 0) …"exit doubleclicend ifend repeatif "," is in itthen delete char offset (",",it) to the number of chars of it of itelse if "." is in itthen delete char offset (".",it) to the number of chars of it of itif it > 9999 then put "9999" into itput it & return & it into cd fld décompteput line 1 of it into cd fld coupsif it > 1 then put "En " & it && "coups…" into menuitem 5 of menu 5 with menumessages "compteur"else put "En 1 coup…" into menuitem 5 of menu 5 with menumessages "compteur"set the checkmark of menuitem 5 of menu 5 to trueset style of me to opaqueend ifend ifend doubleclic</script>
</part>
<part>
<id>362</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>421</left>
<top>209</top>
<right>463</right>
<bottom>221</bottom>
</rect>
<style>opaque</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<name>NIVEAU</name>
<script>on mouseUpsend mouseup to btn id 294end mouseUpon mousewithinsend mousewithin to btn id 294end mousewithin</script>
</part>
<part>
<id>364</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>0</left>
<top>0</top>
<right>512</right>
<bottom>384</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Voile</name>
<script>on mouseUpif cd fld suspendre = "" then exit mouseupif style of btn jouer = opaque or style of btn créer = opaquethen resumestackelse opencardend mouseUp</script>
</part>
<part>
<id>369</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>382</left>
<top>158</top>
<right>499</right>
<bottom>180</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>clone</name>
<script>on mouseUpglobal ssmesplay stopwait 8 ticksrepeat 2if the mouseclickthendéplacerexit mouseupend ifend repeatif the commandkey is down then put "oui" into ssmeselse put "" into ssmesif visible of btn jouer1 is falsethenlock screencolorizeHC "add","btnnouveaujeuint",item 1 to 2 of rect of meunlock screenif icon of btn id 269 = "0"thenplay stopplay quitterend iflock screencolorizehc "add","btnnouveaujeuét",item 1 to 2 of rect of meunlock screenif icon of btn id 269 = "0"thenplay stopplay quitter2end iflock screencolorizehc "add","btnnouveaujeual",item 1 to 2 of rect of meunlock screenend ifif style of btn jouer = opaquethenif icon of btn "créer" = 29812thenif item 1 to 49 of cd fld solution = ",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,"then answer "Voulez-vous vraiment interrompre la partie ?" with "Annuler" or "OK"else answer "Voulez-vous effacer la mosaïque ou interrompre la partie ?" with "Annuler" or "Effacer" or "Interrompre"if it is "Annuler" then exit mouseupelse if it is "effacer"thensend effacement to btn id 294exit mouseupelse if it = "interrompre" or it = "OK"thenlock screencolorizehc "add","btnnouveaujeuét",item 1 to 2 of rect of btn jouerunlock screensend findepartie to btn jouerexit mouseupend ifelsebeepanswer "Le mode Dessin est actif …" & return & return & "Pour jouer, désactivez-le préalablement en cliquant sur son bouton " & ¬"ou en tapant : Commande-I."exit mouseupend ifend ifset cursor to watchsend mouseup to btn jouerend mouseUpon ssbruitglobal ssmesif the commandkey is down then put "oui" into ssmeselse put "" into ssmeslock screencolorizehc "add","btnnouveaujeual",item 1 to 2 of rect of meunlock screenif style of btn jouer = opaquethenif icon of btn "créer" = 29812thenif item 1 to 49 of cd fld solution = ",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,"then answer "Voulez-vous vraiment interrompre la partie ?" with "Annuler" or "OK"else answer "Voulez-vous effacer la mosaïque ou interrompre la partie ?" with "Annuler" or "Effacer" or "Interrompre"if it is "Annuler" then exit ssbruitelse if it is "effacer"thensend effacement to btn id 294exit ssbruitelse if it = "interrompre" or it = "OK"thenlock screencolorizehc "add","btnnouveaujeuét",item 1 to 2 of rect of btn jouerunlock screensend findepartie to btn jouerexit ssbruitend ifelsebeepanswer "Le mode Dessin est actif …" & return & return & "Pour jouer, désactivez-le préalablement en cliquant sur son bouton " & ¬"ou en tapant : Commande-I."exit ssbruitend ifend ifset cursor to watchsend mouseup to btn jouerend ssbruit</script>
</part>
<part>
<id>370</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>423</left>
<top>249</top>
<right>457</right>
<bottom>283</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>sosie</name>
<script>on mouseUpglobal ssdlgwait 8 ticksif the mouseclickthenput "" into ssdlgif the commandkey is down then put "oui" into ssdlgif "interrompre" is in menuitem 1 of menu 2 then exit mouseupset cursor to watchmusiqueif "interrompre" is in menuitem 1 of menu 3 then exit mouseuplock screencolorizehc "add","btncréeral","(item 1 of rect of me),(item 2 of rect of me)"unlock screenif "interrompre" is in menuitem 3 of menu 3thenexit mouseupend ifelseput "" into ssdlgif the commandkey is down then put "oui" into ssdlgif "interrompre" is not in menuitem 1 of menu 2 and "interrompre" is not in menuitem 3 of menu 3thenlock screencolorizehc "add","btncréeral","(item 1 of rect of me),(item 2 of rect of me)"unlock screenend ifif "0" = icon of btn id 269 and 29812 ≠ icon of btn créerthenplay stopplay ptclicend ifif the visible of btn id 230 is "true"thenif the visible of btn "jouer1" is true and (cd fld solution = "" or line 1 of cd fld solution = ",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,")thenanswer "Vous n'avez rien dessiné …" & return & return & "Voulez-vous quitter le mode Dessin ?" with "Annuler" or "OK"if it = "OK"thenlock screencolorizehc "add","btncréerét","(item 1 of rect of me),(item 2 of rect of me)"unlock screensend arrêt to btn créerend ifexit mouseupelse if the visible of btn "jouer1" is true and icon of btn id 230 = 18865thenanswer "Voulez-vous effacer la mosaïque ou interrompre le dessin ?" with "Annuler" or "Effacer" or "Interrompre"if it is "Interrompre"thenlock screencolorizehc "add","btncréerét","(item 1 of rect of me),(item 2 of rect of me)"unlock screensend arrêt to btn créerelse if it is "effacer"thensend effacement to btn créerend ifexit mouseupelse if the visible of btn "jouer1" is false and "interrompre" is in menuitem 1 of menu 2thenbeepanswer "Le mode Jeu est actif …" & return & return & ¬"Pour dessiner, désactivez-le préalablement en cliquant sur son bouton ou en tapant : Commande-I."exit mouseupend ifelseif style of btn jouer = opaquethenbeepanswer "Le mode Jeu est actif …" & return & return & ¬"Pour dessiner, désactivez-le préalablement en cliquant sur son bouton ou en tapant : Commande-I."exit mouseupend ifend ifend ifsend mouseup to btn créerend mouseUpon ssbruitglobal ssdlgput "" into ssdlgif the commandkey is down then put "oui" into ssdlgif "interrompre" is not in menuitem 1 of menu 2 and "interrompre" is not in menuitem 3 of menu 3thenlock screencolorizehc "add","btncréeral","(item 1 of rect of me),(item 2 of rect of me)"unlock screenend ifif the visible of btn id 230 is "true"thenif the visible of btn "jouer1" is true and (cd fld solution = "" or item 1 to 49 of line 1 of cd fld solution = ",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,")thenanswer "Vous n'avez rien dessiné …" & return & return & "Voulez-vous quitter le mode Dessin ?" with "Annuler" or "OK"if it = "OK"thenlock screencolorizehc "add","btncréerét","(item 1 of rect of me),(item 2 of rect of me)"unlock screensend arrêt to btn créerend ifexit ssbruitelse if the visible of btn "jouer1" is true and icon of btn id 230 = 18865thenanswer "Voulez-vous effacer la mosaïque ou interrompre le dessin ?" with "Annuler" or "Effacer" or "Interrompre"if it is "Interrompre"thenlock screencolorizehc "add","btncréerét","(item 1 of rect of me),(item 2 of rect of me)"unlock screensend arrêt to btn créerelse if it is "effacer"thensend effacement to btn créerend ifexit ssbruitelse if the visible of btn "jouer1" is false and "interrompre" is in menuitem 1 of menu 2thenbeepanswer "Le mode Jeu est actif …" & return & return & ¬"Pour dessiner, désactivez-le préalablement en cliquant sur son bouton ou en tapant : Commande-I."exit ssbruitend ifelseif style of btn jouer = opaquethenbeepanswer "Le mode Jeu est actif …" & return & return & ¬"Pour dessiner, désactivez-le préalablement en cliquant sur son bouton ou en tapant : Commande-I."exit ssbruitend ifend ifsend mouseup to btn créerend ssbruit</script>
</part>
<part>
<id>371</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>37</left>
<top>364</top>
<right>152</right>
<bottom>388</bottom>
</rect>
<style>opaque</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Times</font>
<textSize>24</textSize>
<textStyle>condense</textStyle>
<textStyle>italic</textStyle>
<textStyle>bold</textStyle>
<name>MosaÏcon </name>
<script>on mousestilldownget short name of meput textsize of me into corpslock screenif textsize of me = 18 then set textsize of me to 14else set textsize of me to 18set name of me to "Version 1.1.1"unlock screensend kwad9 to btn quitterwait until the mouse is upif the mouse is upthenlock screenset textsize of me to corpsset name of me to itunlock screenend ifend mousestilldownon mouseUpbeepwait 2 ticksif the mouseclickthenbeepwait 2 ticksif the mouseclickthenbeepwait 2 ticksif the mouseclickthenbeepwait 2 ticksif the mouseclickthenbeepwait 2 ticksif the mouseclickthenbeepwait 2 ticksif the mouseclickthenbeepwait 2 ticksif the mouseclickthenput "" into cd fld tempsset textstyle of cd fld temps to plain,bold,condenseset the textalign of cd fld temps to leftput "     Quid refert unde venis. Solum refert quo vadis." into cd fld temps of card 2repeat until cd fld temps of card 2 is emptydelete char 1 of cd fld temps of card 2wait 6 ticksend repeatset the textalign of cd fld temps to centerset textstyle of cd fld temps to plain,boldput "- - . - - . - -" into cd fld tempsend ifend ifend ifend ifend ifend ifend ifend mouseUp</script>
<text>B B B,B B B,B B B,B B B,B B B,B B B,B B B,V V V,V V V,V V V,V V V,V V V,V V V,V V V,M M M,M M M,M M M,M M M,M M M,M M M,M M M,O O O,O O O,O O O,,O O O,O O O,O O O,M M M,M M M,M M M,M M M,M M M,M M M,M M M,V V V,V V V,V V V,V V V,V V V,V V V,V V V,B B B,B B B,B B B,B B B,B B B,B B B,B B BM R B,V V V,J V O,M B B,M R B,B V O,R J O,J V J,M R B,V V V,J V O,M B B,M R M,B V O,V V R,J V J,M R B,V V V,J V O,M B B,M R B,M O B,V V R,J V J,,V V V,J V O,M B B,V R B,M O B,V V R,J V J,M R B,V V V,J V O,J V R,V R B,M O B,V V R,J V J,M R B,V V V,V V V,J V R,V R B,M O B,V V R,J V J,M R B,V B R,B O M,J B M,V B O,J R V,B M B,V B R,B O M,J B M,V B O,J R V,B M B,R M J,B O M,J B M,V B O,J R V,B M B,R M J,J O R,J B M,V B O,J R V,B M B,R M J,J O R,R M O,V B O,J R V,B M B,R M J,J O R,R M O,J B B,J R V,B M B,R M J,J O R,R M O,J B B,B J M,B M B,R M J,J O R,R M O,J B B,B J M,O R BM O B,J V J,B O M,J V J,B O M,J V J,B O M,J V J,M O B,J V J,B O M,J V J,B O M,J V J,B O M,J V J,M O B,J V J,B O M,J V J,B O M,J V J,B O M,J V J,,J V J,B O M,J V J,B O M,J V J,B O M,J V J,M O B,J V J,B O M,J V J,B O M,J V J,B O M,J V J,M O B,J V J,B O M,J V J,B O M,J V J,B O M,J V J,M O BR J R,M O B,R J R,,R J R,M O B,R J R,M O B,R J R,B O M,R J R,M O B,R J R,M O B,R J R,B O M,R J R,M O B,R J R,M O B,R J R,B O M,R J R,M O B,R J R,M O B,R J R,M O B,R J R,M O B,R J R,M O B,R J R,M O B,R J R,M O B,R J R,M O B,R J R,M O B,R J R,M O B,R J R,M O B,R J R,M O B,R J R,M O B,R J RO B M,M O B,B R B,R O R,B R B,M O B,B O M,M O B,B R M,R O R,M B M,R O R,B R M,M O V,B R M,R O R,M B M,V J V,M B M,R O R,B R M,R O R,M B M,V J V,B,V J V,M B M,O R O,B R M,R O R,M B M,V J V,M B M,R O R,B R M,M O B,B R M,R O R,M B M,R O R,B R M,M O B,O R V,M O R,B R B,R O R,B R B,M O R,J V M,J V M,J V M,V V V,J V M,J V M,J V M,V V V,V V V,V V V,V V V,V V V,V V V,V V V,J V M,J V M,J V M,V V V,J V M,J V M,J V M,V V V,V V V,V V V,,V V V,V V V,V V V,J V M,J V M,J V M,V V V,J V M,J V M,J V M,V V V,V V V,V V V,V V V,V V V,V V V,V V V,J V M,J V M,J V M,V V V,J V M,J V M,J V MJ V M,J V M,J V M,J V M,J V M,J V M,,M M M,M M M,M M M,M M M,M M M,M M M,M M M,V V V,V V V,V V V,V V V,V V V,V V V,V V V,R R R,R R R,R R R,R R R,R R R,R R R,R R R,O O O,O O O,O O O,O O O,O O O,O O O,O O O,B B B,B B B,B B B,B B B,B B B,B B B,B B B,J J J,J J J,J J J,J J J,J J J,J J J,J J J,J V O,V V V,J V O,V V V,J V O,V V V,J V R,V V V,J V O,V V V,J V O,V V V,B O M,V V V,J V R,V V V,J V O,V V V,B O M,V V V,J V R,V V V,J V R,V V V,B O M,J J J,M O B,V V V,J V R,V V V,B O M,J J J,M O B,V V V,J V R,V V V,B O M,J J J,M O B,J J J,M O B,V V V,B O M,V V V,M O B,V V V,M O B,V V VR V R,B M V,J J J,V V V,J J J,M O B,R V R,B B B,J J J,O O O,V V V,O O O,J J J,B B B,J J J,O O O,V V V,R R R,V V V,O O O,J J J,O O O,V V V,R R R,M M M,R R R,V V V,O O O,V V V,R R R,M M M,B B B,M M M,R R R,V V V,R R R,M M M,B B B,M M M,B B B,M M M,R R R,M M M,B B B,M R B,,M R B,B B B,M M M</text>
<script>-- on idleglobal psto,euréka,chrono,déb,fin,borne,reste,niv,paral,destif psto = ""thenput the long time into cd fld tempselse if euréka ≠ "" thenelseput déb - the seconds into résput rés into rés2convert rés2 to long timeput rés2 into cd fld tempsif rés ≤ 0thenput "00:00:00" into cd fld tempsplay stoprepeat 3play coucouend repeatif chrono = 1 then answer "La minute est écoulée." & return & return & return & " Fin de la partie."else answer "Les " & chrono & " minutes sont écoulées." & return & return & return & " Fin de la partie."put "*******************" into cd fld tempsrepeat until cd fld temps = ""delete char 1 of cd fld tempsend repeatrepeat 4put "Perdu" into cd fld tempswait 10 ticksput "" into cd fld tempsend repeatput "00:00:00" into cd fld tempslock screencolorizehc "add","btnnouveaujeuét",item 1 to 2 of rect of btn jouerunlock screenput "" into pstoif last word of short name of btn id 294 ≥ 5 then désopaquiserguillotinesend findepartie to btn jouerelseif rés ≤ 60thenput déb - the seconds into résconvert rés to long timeput rés into cd fld tempsset hilite of btn id 195 to falseset hilite of btn id 195 to trueif icon of btn id 269 = "0"thenplay stopplay harpsichord tempo 60 82end ifend ifend ifend ifpass idleend idleon domenu xif x = "fenêtre suivante"thenget line 2 of the stacksrepeat until ":" is not in itdelete char 1 to offset (":",it) of itend repeatanswer "Voulez-vous vraiment retourner à la pile «" & it & "» ?" with "OK" or "Annuler"if it is "OK" then go line 2 of the stacksexit domenuend ifpass domenuend domenuon keydown xglobal lavar,chrono,déb,fin,psto,ens,euréka,kalei,dest,combien,libre,parkalei,BAT,annul,annulkalei,annulkalei2,lenom,inversion,blocdiag,avortdiag,quidiag,¬blocniv,ssclr,rejeu,unpostinv,antér,quelledir,alea,passer,tycif item 1 to 49 of cd fld solution = ",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,"then set cursor to watchif icon of btn id 269 = "0" then play stopput "" into passerput x into quidiagif unpostinv ≠ "" then add 1 to unpostinvput kalei into annulkaleiput "" into BATif euréka ≠ ""thenbeepanswer "Cette partie est terminée." & return & return & "Recommencez-en une, ou créez une nouvelle mosaïque …"exit keydownelse if style of btn "jouer" = transparent and style of btn créer = transparentthenif cd fld rejouer = ""thenanswer "Choisissez un des deux modes :" with "Annuler" or "Dessin" or "Jeu"if it is "annuler" then exit keydownelse if it is "jeu" then send ssbruit to btn cloneelse send ssbruit to btn sosieelseanswer "Choisissez un des trois modes :" with "Dessin" or "Jeu" or "Reprise"put it into rjanswer "Veuillez confirmer le choix du mode " & rj & "." with "Annuler" or "OK"if it = "ok"thenif rj = "reprise"thenput "Ouverture" into cd fld tempsset cursor to watchput "oui" into rejeutransitoire couleursif "jouer" is in line 1 of cd fld rejouer then send ssbruit to btn cloneelse send ssbruit to btn sosieelse if rj = "jeu" then send mouseup to btn jouerelse send mouseup to btn créerend ifend ifexit keydownend ifif "interrompre" is in menuitem 3 of menu 3 and there is a window "clavier" and style of btn quitter = transparentthenamadeus xif passer = "" then exit keydownend ifif the checkmark of menuitem 4 of menu 5 is true and the enabled of menuitem 4 of menu 5 = true and libre ≠ "" and combien ≠ "0"thenif parkalei = ""thenbeepanswer "Cliquez sur un témoin lumineux pour valider le premier déplacement consécutif au Bonus …"exit keydownend ifif chartonum of x = line 18 of cd fld touchesthenadd 1 to combienif "B :" is in cd fld tempsthenadd 1 to last word of cd fld tempsend ifend ifelseput "" into libreput "" into parkaleiput "" into combienput "" into ssclrput "" into antérend ifif "interrompre" is in menu 3 and the shiftkey is down and last word of short name of btn id 294 = 6thensend forme to btn àbasesend choixsymb to btn àbaseend ifif style of btn "inversion" = "opaque" and "oui" is in inversionthenif the chartonum of x = line 10 of cd fld touchesthen put the numtochar of line 17 of cd fld touches into xelse if the chartonum of x = line 11 of cd fld touchesthen put the numtochar of line 16 of cd fld touches into xelse if the chartonum of x = line 12 of cd fld touchesthen put the numtochar of line 15 of cd fld touches into xelse if the chartonum of x = line 13 of cd fld touchesthen put the numtochar of line 14 of cd fld touches into xelse if the chartonum of x = line 14 of cd fld touchesthen put the numtochar of line 13 of cd fld touches into xelse if the chartonum of x = line 15 of cd fld touchesthen put the numtochar of line 12 of cd fld touches into xelse if the chartonum of x = line 16 of cd fld touchesthen put the numtochar of line 11 of cd fld touches into xelse if the chartonum of x = line 17 of cd fld touchesthen put the numtochar of line 10 of cd fld touches into xend ifput short name of btn id 142 into lavarif chartonum of x = line 10 of cd fld touchesthenif short name of bkgnd btn 10 = "blanc" then flèche "Sud-Ouest","FNSO","FBSO","7"if lavar = 2 or lavar = 9 or lavar = 16 or lavar = 23 or lavar = 30 or lavar = 37thenput 13 + lavar into destif style of btn "inversion" = opaquethentestinversionend ifelse if lavar ≥ 45thenput -43 + lavar into destif style of btn "inversion" = opaquethentestinversionend ifelse if lavar = 44thenput -36 + lavar into destif style of btn "inversion" = opaquethentestinversionend ifelse put 6 + lavar into destappui word 1 of short name of btn 1 & "2",1else if chartonum of x = line 11 of cd fld touchesthenif short name of bkgnd btn 10 = "blanc" then flèche "sud","FNS","FBS","8"if lavar ≥ 44thenput -42 + lavar into destif style of btn "inversion" = opaquethentestinversionend ifelse put 7 + lavar into destappui word 1 of short name of btn 1 & "1",2else if chartonum of x = line 12 of cd fld touchesthenif short name of bkgnd btn 10 = "blanc" then flèche "sud-Est","FNSE","FBSE","9"if lavar ≥ 44 and lavar < 50thenput -41 + lavar into destif style of btn "inversion" = opaquethentestinversionend ifelse if lavar = 8 or lavar = 15 or lavar = 22 or lavar = 29 or lavar = 36 or lavar = 43thenput 1 + lavar into destif style of btn "inversion" = opaquethentestinversionend ifelse if lavar = 50 thenput -48 + lavar into destif style of btn "inversion" = opaquethentestinversionend ifelse put 8 + lavar into destappui word 1 of short name of btn 1 & "8",3else if chartonum of x = line 13 of cd fld touchesthenif short name of bkgnd btn 10 = "blanc" then flèche "ouest","FNO","FBO","5"if lavar = 2 or lavar = 9 or lavar = 16 or lavar = 23 or lavar = 30 or lavar = 37 or lavar = 44thenput 6 + lavar into destif style of btn "inversion" = opaquethentestinversionend ifelse put -1 + lavar into destappui word 1 of short name of btn 1 & "3",4else if chartonum of x = line 18 of cd fld touchesthenif annul = "" or (last char of short name of btn id 294 > 3 and visible of btn "jouer1" is false) then exit keydownerreursablierexit keydownelse if chartonum of x = line 14 of cd fld touchesthenif short name of bkgnd btn 10 = "blanc" then flèche "est","FNE","FBE","6"if lavar = 8 or lavar = 15 or lavar = 22 or lavar = 29 or lavar = 36 or lavar = 43 or lavar = 50thenput -6 + lavar into destif style of btn "inversion" = opaquethentestinversionend ifelse put 1 + lavar into destappui word 1 of short name of btn 1 & "7",5else if chartonum of x = line 15 of cd fld touchesthenif short name of bkgnd btn 10 = "blanc" then flèche "Nord-ouest","FNNO","FBNO","2"if lavar = 9 or lavar = 16 or lavar = 23 or lavar = 30 or lavar = 37thenput -1 + lavar into destif style of btn "inversion" = opaquethentestinversionend ifelse if lavar > 2 and lavar ≤ 8thenput 41 + lavar into destif style of btn "inversion" = opaquethentestinversionend ifelse if lavar = 2thenput 48 + lavar into destif style of btn "inversion" = opaquethentestinversionend ifelse if lavar = 44thenput -1 + lavar into destif style of btn "inversion" = opaquethentestinversionend ifelse put -8 + lavar into destappui word 1 of short name of btn 1 & "4",6else if chartonum of x = line 16 of cd fld touchesthenif short name of bkgnd btn 10 = "blanc" then flèche "Nord","FNN","FBN","3"if lavar ≤ 8thenput 42 + lavar into destif style of btn "inversion" = opaquethentestinversionend ifelse put -7 + lavar into destappui word 1 of short name of btn 1 & "5",7else if chartonum of x = line 17 of cd fld touchesthenif short name of bkgnd btn 10 = "blanc" then flèche "Nord-Est","FNNE","FBNE","4"if lavar = 15 or lavar = 22 or lavar = 29 or lavar = 36 or lavar = 43 or lavar = 50thenput -13 + lavar into destif style of btn "inversion" = opaquethentestinversionend ifelse if lavar < 8thenput 43 + lavar into destif style of btn "inversion" = opaquethentestinversionend ifelse if lavar = 8thenput 36 + lavar into destif style of btn "inversion" = opaquethentestinversionend ifelse put -6 + lavar into destappui word 1 of short name of btn 1 & "6",8elseexit keydownend ifsablierif "oui" is in avortdiag or "oui" is in blocniv then exit keydownset name of btn id 142 to destif "interrompre" is in menuitem 1 of menu 2 and item (lavar)-1 of cd fld solution ≠ "" and item (lavar)-1 of cd fld solution = item (lavar)-1 of cd fld combinaisonthenrepeat 2set hilite of btn lavar to trueset hilite of btn lavar to falseend repeatget short name of btn lavarset name of btn lavar to " "set icon of btn lavar to "OK"wait 30 ticksset icon of btn lavar to ""if "id" is not in it then set name of btn lavar to itend ifif the checkmark of menuitem 5 of menu 5 is true and "interrompre" is in menuitem 1 of menu 2thensubtract 1 from line 2 of cd fld décomptesubtract 1 from cd fld coupsif line 2 of cd fld décompte = 0 and cd fld solution ≠ cd fld combinaisonthenif icon of btn id 269 = "0"thenplay stoprepeat 3play coucouend repeatend ifif line 1 of cd fld décompte = 1 then put "1 coup." into grelse put line 1 of cd fld décompte & " coups." into granswer "Vous vous étiez limité à " & gr & return & return & return & " Fin de la partie."put "***************" into cd fld tempsrepeat until cd fld temps = ""delete char 1 of cd fld tempsend repeatrepeat 4put "Perdu" into cd fld tempswait 10 ticksput "" into cd fld tempsend repeatsend voyant to btn jouerlock screenset style of btn "jouer" to transparentcolorizeHC "add","btnnouveaujeuét","item 1 of rect of btn jouer,item 2 of rect of btn jouer"set icon of btn 1 to ""unlock screenif last word of short name of btn id 294 ≥ 5 then désopaquisergriser "btn créer,btn analyser",falseput line 1 of cd fld décompte into line 2 of cd fld décompteput "- - . - - . - -" into cd fld tempsput "- -" into cd fld coupsput line 1 of cd fld décompte into line 2 of cd fld décompteguillotinesend findepartie to btn jouerexit keydownend ifend ifif the checkmark of menuitem 4 of menu 5 is true and the enabled of menuitem 4 of menu 5 = true and libre ≠ "" and combien > "-1"thenif combien = 0thenbeepbeeprepeat 4put "Ø" into cd fld tempsput "" into cd fld tempsend repeatlock screencolorizeHC "add","barrevoyantsét","381,142"put "" into libreput "" into parkaleiput "" into combienput "" into ssclrput "B J M O R M V B" into kaleiput "B J M O R M V B" into annulkaleiput "B J M O R M V B" into annulkalei2if last word of short name of btn id 294 is in "23"thenif last word of short name of btn id 294 = 3 and the number of words of line 3 of annul ≥ 3thenelseif char 1 of last word of line 3 of annul = "M"thenput "J M R B B O M V, V M O B B R M J" into aleaput item random (2) of alea into kelse if char 1 of last word of line 3 of annul = "B"thenput "R B V M M J B O, O B J M M V B R" into aleaput item random (2) of alea into kelse if char 1 of last word of line 3 of annul = "V" then put "B J M O R M V B" into kelse if char 1 of last word of line 3 of annul = "O" then put "M R B J V B O M" into kelse if char 1 of last word of line 3 of annul = "J" then put "B V M R O M J B" into kelse if char 1 of last word of line 3 of annul = "R" then put "M O B V J B R M" into kput k into annulkaleiput k into annulkalei2end ifend ifcolorizehc "add",quelledir,rect of btn destunlock screenput "- - . - - . - -" into cd fld tempsend ifend ifif the chartonum of x ≠ 8 and "interrompre" is in menuitem 3 of menu 3 then add 1 to last word of cd fld coupsput item 1 to 49 of line 1 of cd fld solution into BATput "" into item dest-1 of BATif "interrompre" is in menuitem 1 of menu 2 then send vérifgain to btn créerif unpostinv ≥ 1 then put "" into unpostinvif last word of short name of btn id 294 ≤ 2 then put "1 3 5 7 9" into tirelse put "0 4 8" into tirif "interrompre" is in menuitem 1 of menu 2 and the checkmark of menuitem 4 of menu 5 = true and last char of lavar + random (9) is in tirthen send ijogisuntofati to btn quitter-- if ",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,," = cd fld solution then disable menuitem 8 of menu 2-- else if ",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,," ≠ cd fld solution and the enabled of menuitem 8 of menu 2 = false-- then enable menuitem 8 of menu 2if ",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,," = item 1 to 49 of cd fld solution then disable menuitem 8 of menu 2else enable menuitem 8 of menu 2end keydownon erreurglobal lavar,dest,kalei,annul,annulkalei,annulkalei2,unpostinv,blocdiag,avortdiag,quitdiag,alea,lenom,quelledir,libre,combien,parkalei,ssclr,BAT,annulkaleimémoset showname of btn (line 2 of annul) to falseif last char of short name of btn id 294 < 5 then set icon of btn 1 to MACgriselse set icon of btn (line 2 of annul) to macgrisif icon of btn id 269 = "0"thenplay stopif "bois" is in short name of btn id 278 then play repriseboiselse play reprisemarbreend ifset showname of btn (line 1 of annul) to falseif last char of short name of btn id 294 ≥ 5thenset icon of btn (line 2 of annul) to ""set icon of btn (line 1 of annul) to macgrisend ifset showname of btn (line 2 of annul) to trueset loc of btn 1 to loc of btn line 1 of annulset loc of btn position to loc of btn ((line 1 of annul)+50)if "interrompre" is in menu 3 or (the checkmark of menuitem 5 of menu 5 is true and "- -" is not in cd fld coups)then put "- 1 coup" into cd fld tempselse put "Reprise" into cd fld tempswait 1 secondsput "- - . - - . - -" into cd fld tempsset cursor to watchif style of btn "inversion" = opaque and (dest ≤ 9 or dest ≥ 43 or dest = 16 or dest = 23 or dest = 30 or dest = 37 or dest = 15 or dest = 22 or dest = 29 ¬or dest = 36 or dest = 43) and unpostinv ≥ 1 then testinversionlock screenif line 4 of annul = ""thenput "reprise" & char 6 to (the number of chars of short name of btn id 278) of short name of btn id 278 into complif last char of word 1 of line 2 of annul is in "02468"then put "1" after complelse put 2 after complput "" into item (line 2 of annul)-1 of cd fld solutionelseput line 4 of annul into complif last word of short name of btn id 294 ≤ 3 then put 2 after complput line 4 of annul into item (line 2 of annul)-1 of cd fld solutionend ifif alea ≠ "" and (word 7 of annulkalei2 = m or word 7 of annulkalei2 = b)thenif word 7 of annulkalei2 = "M"thenput "J M R B B O M V, V M O B B R M J" into aleaput item random (2) of alea into kaleielse if word 7 of annulkalei2 = "B"thenput "R B V M M J B O, O B J M M V B R" into aleaput item random (2) of alea into kaleiend ifelseput annulkalei2 into kaleiput "" into aleaend ifif last word of short name of btn id 294 = 3thenif line 4 of annul ≠ ""thensend q && "," & line 2 of annul & "," & (char 1 of last word of line 4 of annul) & "," & solution to btn jouerelsecolorizeHC "add","btn" & compl,rect of btn line 2 of annulend ifelse if last word of short name of btn id 294 = 6thenif "reprise" is not in complthenput char (word 1 of line 2 of annul) of fld formes into qlfsend qlf && "," & line 2 of annul & "," & (char 1 of last word of line 4 of annul) & "," & solution to btn jouerelsecolorizeHC "add","btn" & compl,rect of btn line 2 of annulend ifelseif "reprise" is not in complthen colorizeHC "add",fld mespièces & "btn" & compl,rect of btn line 2 of annulelse colorizeHC "add",btn & compl,rect of btn line 2 of annulend if-- if quelledir ≠ "" then put quelledir into a-- elseif line 5 of annul = 8 then put word 1 of short name of btn 1 & "2" into aelse if line 5 of annul = 7 then put word 1 of short name of btn 1 & "1" into aelse if line 5 of annul = 6 then put word 1 of short name of btn 1 & "8" into aelse if line 5 of annul = 5 then put word 1 of short name of btn 1 & "3" into aelse if line 5 of annul = 4 then put word 1 of short name of btn 1 & "7" into aelse if line 5 of annul = 3 then put word 1 of short name of btn 1 & "4" into aelse if line 5 of annul = 2 then put word 1 of short name of btn 1 & "5" into aelse if line 5 of annul = 1 then put word 1 of short name of btn 1 & "6" into a-- end ifput a into quelledirif word 7 of annulkalei2 ≠ "v"thenif the checkmark of menuitem 4 of menu 5 is true and the enabled of menuitem 4 of menu 5 = true and libre ≠ "" and combien ≠ "" and combien > 0then colorizeHC "add","ptbtn" & ssclr & "2",rect of btn (line 1 of annul)else colorizeHC "add","N" & word 7 of annulkalei2,rect of btn (line 1 of annul)colorizeHC "add",a,rect of btn 1if last word of short name of btn id 294 ≥ 5 then put "oui" into blocdiagelse put "" into blocdiagelseif the checkmark of menuitem 4 of menu 5 is true and the enabled of menuitem 4 of menu 5 = true and libre ≠ "" and combien ≠ "" and combien > 0 and ssclr ≠ ""thencolorizeHC "add","ptbtn" & ssclr & "2",rect of btn (line 1 of annul)colorizeHC "add",a,rect of btn 1elseif "reprise" is not in lenomthencolorizeHC "add",a,rect of btn (line 1 of annul)put "" into blocdiagelsecolorizeHC "add","ptbtngris",rect of btn (line 1 of annul)colorizeHC "add",a,rect of btn 1if last word of short name of btn id 294 ≥ 5 then put "oui" into blocdiagelse put "" into blocdiagend ifend ifend ifset showname of btn (line 1 of annul) to trueif last char of short name of btn id 294 < 5 then set icon of btn 1 to ""elseset icon of btn (line 1 of annul) to ""marquer (line 1 of annul)end ifif style of btn id 278 = "opaque"thenset name of btn line 1 of annul to ""if last word of short name of btn id 294 = 1thenif line 4 of annul ≠ ""thenmarquer line 2 of annulend ifelseif line 4 of annul ≠ ""thenmarquer line 2 of annulend ifend ifend ifput line 3 of annul into item (line 1 of annul)-1 of cd fld solutionunlock screenset icon of btn 1 to "0"if last word of short name of btn id 294 is in "36" and "interrompre" is in menuitem 1 of menu 2thenif item (line 1 of annul)-1 of cd fld combinaison = "" then put "ø" into cd fld tempselse put item (line 1 of annul)-1 of cd fld combinaison into cd fld tempsend ifif visible of btn "jouer1" = true then subtract 1 from last word of cd fld coupselseif "- -" is not in cd fld coups and the checkmark of menuitem 5 of menu 5 is truethenadd 1 to line 2 of cd fld décompteadd 1 to cd fld coupsend ifend ifset name of btn id 142 to word 1 of line 1 of annulput line 1 of annul into destput "" into annulput "" into annulkaleiput "" into annulkalei2put "" into unpostinvput "" into avortdiagput "" into quitdiagput "" into lenomput item 1 to 49 of line 1 of cd fld solution into BATif last word of short name of btn id 294 is in "36" and visible of btn "jouer1" = false then pyrcoul item (dest)-1 of cd fld combinaison-- if item 1 to 49 of cd fld solution = ",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,," and the enabled of menuitem 8 of menu 2 = true then disable menuitem 8 of menu 2if ",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,," = item 1 to 49 of cd fld solution then disable menuitem 8 of menu 2else enable menuitem 8 of menu 2repeat until the lockscreen is falseunlock screenend repeatput "" into annulkaleimémoend erreuron désopaquiserlock screenrepeat with op = 2 to 50if last char of op is in "02468" then set style of btn op to transparentend repeatunlock screenend désopaquiseron annulationglobal annulif the number of this card ≠ 2 or annul = "" or (last char of short name of btn id 294 > 3 and visible of btn "jouer1" = false)then exit annulationkeydown numtochar (line 18 of cd fld touches)end annulationon Clignotement bwait 8 ticksif the commandkey is downthenif b is in "10 11 12" then put b -3 into celse if b is in "13 14" then put b - 8 into celse put b - 13 into cif short name of bkgnd btn 10 = "blanc"thenset name of bkgnd btn 10 to "blanc2"set the checkmark of menuitem 9 of menu 5 to falseset hilite of bkgnd btn c to trueset hilite of bkgnd btn c to falseput "Flèche" into cd fld tempswait 2 secput "- - . - - . - -" into cd fld tempselseset name of bkgnd btn 10 to "blanc"set the checkmark of menuitem 9 of menu 5 to truerepeat 4set hilite of bkgnd btn c to trueset hilite of bkgnd btn c to falseend repeatput "Flash" into cd fld tempswait 2 secput "- - . - - . - -" into cd fld tempsend ifexit clignotementelseif b = ""thenif the checkmark of menuitem 9 of menu 5 = falsethenset the checkmark of menuitem 9 of menu 5 to truerepeat 4set hilite of bkgnd btn 3 to trueset hilite of bkgnd btn 3 to falseend repeatset name of bkgnd btn 10 to "blanc"put "Flash" into cd fld tempswait 2 secput "- - . - - . - -" into cd fld tempselseset the checkmark of menuitem 9 of menu 5 to falseset hilite of bkgnd btn 3 to trueset hilite of bkgnd btn 3 to falseset name of bkgnd btn 10 to "blanc2"put "Flèche" into cd fld tempswait 2 secput "- - . - - . - -" into cd fld tempsend ifelsekeydown (numtochar (line b of cd fld touches))end ifend ifend clignotementon guillotineput rect of bkgnd btn 10 into taillput short name of bkgnd btn 10 into nomfinif visible of bkgnd btn 1 is falsethenset rect of bkgnd btn 10 to 26,29,353,41set hilite of bkgnd btn 10 to trueput 41 into arepeat until a ≥ 356set rect of bkgnd btn 10 to 26,29,353,aadd 16 to aend repeatelseset rect of bkgnd btn 10 to 26,41,353,356set hilite of bkgnd btn 10 to falseput 41 into arepeat until a ≥ 344set rect of bkgnd btn 10 to 26,a,353,356add 16 to aend repeatset hilite of bkgnd btn 10 to trueend ifset rect of bkgnd btn 10 to taillset the textsize of bkgnd btn 10 to 38set name of bkgnd btn 10 to "FIN DE PARTIE"set showname of bkgnd btn 10 to truerepeatrepeat 3set showname of bkgnd btn 10 to falseset showname of bkgnd btn 10 to trueend repeatif the mouseclickthenexit repeatend ifend repeatset showname of bkgnd btn 10 to falseset hilite of bkgnd btn 10 to falseset name of bkgnd btn 10 to nomfinend guillotineon opencardglobal euréka,kalei,bonjour,username,lavar,dest,psto,quelledir,annulset the cantabort of this stack to trueset the cantpeek of this stack to trueif cd fld sauver = "" then colorizehc "colorfill",rect of btn id 371,fld monéchiquierelse colorizehc "colorfill",rect of btn id 371,item 4 to 6 of line 11 of cd fld sauvervoiler truerepeat until the lockscreen is falseunlock screenend repeatif short name of btn id 230 ≠ " D E S S I N E Z . . ." then show btn positionhide btn 1lock screennetchangermenusif "interrompre" is not in menuitem 1 of menu 2 and "interrompre" is not in menuitem 3 of menu 3 then send affichage to this backgroundelsesend reconstruire to btn retourput "" into cd fld suspendreshow btn 1repeat until the lockscreen is falseunlock screenend repeatvoiler falseexit opencardend ifrepeat until the lockscreen is falseunlock screenend repeatvoiler falserepeat while " " is in usernameput " " into char offset (" ",username) of usernameend repeatif bonjour = ""thenput "" into cd fld tempsset textstyle of cd fld temps to plain,bold,condenseif the abbr date is not in fld "bonjour"thenif username = ""thenset the textalign of cd fld temps to centerput "BONJOUR" into cd fld temps of card 2wait 1 secondselseset the textalign of cd fld temps to leftput "                BONJOUR À VOUS," & "  " & username & "  !" into cd fld temps of card 2end ifelseif username = ""thenset the textalign of cd fld temps to centerput "Rebonjour !" into cd fld temps of card 2wait 1 secondselseset the textalign of cd fld temps to leftput "                REBONJOUR," & "  " & username & "  !" into cd fld temps of card 2end ifend ifrepeat until cd fld temps of card 2 is emptydelete char 1 of cd fld temps of card 2if username ≠ "" then wait 4 ticksend repeatset the textalign of cd fld temps to centerset textstyle of cd fld temps to plain,boldput "- - . - - . - -" into cd fld tempsput the abbr date into line 1 of fld "bonjour"put 1 into bonjourend ifif cd fld sauver ≠ ""thenif the checkmark of menuitem 5 of menu 5 is truethenput word 2 of item 1 of line 5 of cd fld sauver into cd fld coupsput word 2 of item 1 of line 5 of cd fld sauver into cd fld décompteend ifend ifshow btn 1set icon of btn 1 to venisif icon of btn id 269 = "0"then play merset the cantabort of this stack to trueset the cantpeek of this stack to trueend opencardon closecardset cursor to watchtransitoire "suspendre"if "interrompre" is in menu 2 then put "jouer" into line 300 of cd fld suspendreelse if "interrompre" is in menu 3 then put "créer" into line 300 of cd fld suspendreend closecard</script>
</card>
card_3757.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on closecardend closecardon mouseupgo nextend mouseupon opencardreset menubarput "V J O R B M" INTO COULput "1 2 3" into tonput "standardbtn btn" into styleput "M1281 Mplus1 Mse1 Mse301 Mcl1 Mclr1" into mactypeget word random (6) of mactypelock screencolorizeHC "add","PagedeGarde","-15,-55"put 46 + random (150) into tailput 20 + random (400) into ouput 150 + random (100) into htif ht+tail > 384then subtract ((ht+tail)-384)+20 from htif ou+tail > 512then subtract ((ou+tail)-512)+20 from oucolorizehc "add",it,ou & "," & ht & "," & ou+tail & "," & ht+tailput word 2 of style & word random (6) of coul & word random (3) of ton into casecolorizehc "add",case,rect of btn 2unlock screenhide btn 7repeat until the lockscreen is falseunlock screenend repeatset cursor to watchpeindre random (8)play stopset cursor to watchlock screendomenu revertreset paintchoose browse toolhide btn 3hide btn 4hide btn 6hide btn 5show btn 7go nextend opencardon peindre xif x = 1thenchoose eraser toolrepeatplay stopplay merrepeat with b = 1 to 2000if b = 200 or b = 400 or b = 600 or b = 800 or b = 1000 or b = 1200 or ¬b = 1400 or b = 1600 or b = 1800 or b = 2000 then suiteget char (the number of chars of the long time)-1 to the number of chars of the long time of the long timeif "00" is in itthenplay stopplay merend ifclick at random (512), random (384)if the mouseclick then exit peindreend repeatdomenu revertend repeatelse if x = 2thenrepeatplay stopplay merchoose tool 17set the pattern to 1set the filled to trueput "true false" into centrepeat with a = 1 to 100if a = 4 or last char of a = 0 then suiteget char (the number of chars of the long time)-1 to the number of chars of the long time of the long timeif "00" is in it or "30" is in itthenplay stopplay merend ifset the dragspeed to 40 + random (200)set the polysides to random (49)set the centered to word random (2) of centput random (512) & "," & random (384) into pclick at pdrag from p to random (512), random (384)*2if the mouseclick then exit peindredomenu revertend repeatend repeatelse if x = 3thenrepeatplay stopplay merchoose select tooldomenu "select All"repeat with b = 1 to 100if b = 4 or b = 40 or b = 80 then suiteget char (the number of chars of the long time)-1 to the number of chars of the long time of the long timeif "00" is in itthenplay stopplay merend ifdomenu "Lighten"if the mouseclick then exit peindreend repeatchoose select tooldomenu "select All"repeat with b = 1 to 100if b = 4 or b = 40 or b = 80 then suiteget char (the number of chars of the long time)-1 to the number of chars of the long time of the long timeif "00" is in itthenplay stopplay merend ifdomenu "Darken"if the mouseclick then exit peindreend repeatdomenu revertreset paintend repeatelse if x = 4thenset the filled to trueput "true false" into centput "11 12 14 15 17" into outrepeatplay stopplay merrepeat with a = 1 to 100repeat with b = 1 to 20if b = 20 then suiteget char (the number of chars of the long time)-1 to the number of chars of the long time of the long timeif "00" is in it or "30" is in itthenplay stopplay merend ifchoose tool word random (5) of outset the pattern to random (40)set the dragspeed to 40 + random (500)if tool = 17 then set the polysides to random (49)set the centered to word random (2) of centput random (512) & "," & random (384) into pclick at pdrag from p to item 1 of p + random (50), item 2 of p - random (100)if the mouseclick then exit peindreend repeatdomenu undoend repeatend repeatelse if x = 5thenset the filled to trueput "true false" into centput "shiftkey optionkey" into toucput "1 2 3 4 6 8" into eplput "1 7 10 11 12 18 22" into patput "11 12" into outrepeatplay stopplay merrepeat with b = 1 to 50if last char of b = 0 then suiteget char (the number of chars of the long time)-1 to the number of chars of the long time of the long timeif "00" is in it or "30" is in itthenplay stopplay merend ifchoose tool word random (2) of outset the pattern to word random (7) of patset the dragspeed to 40 + random (800)set the linesize to word random (6) of eplset the centered to word random (2) of centput random (512) & "," & random (384) into pclick at pdrag from p to item 1 of p + random (256), item 1 of p + random (171) with word random (2) of toucif the mouseclick then exit peindreend repeatdomenu revertend repeatelse if x = 6thenchoose brush toolput "1 2 3 4 28" into eplset the filled to trueput "1 7 9 10 11 12 15 18 20 22 30 36" into patput "hor ver" into dirrepeatplay stopplay merrepeat with a = 1 to 100if a = 4 or last char of a = 0 then suiteget char (the number of chars of the long time)-1 to the number of chars of the long time of the long timeif "00" is in it or "30" is in itthenplay stopplay merend ifset the brush to word random (5) of eplset the pattern to word random (12) of patset the dragspeed to 40 + random (800)put word random (2) of dir into solif sol = "ver" then put random (512) & "," & "0" into pelse put "0" & "," & random (384) into pclick at pif sol = "ver"then drag from p to item 1 of p, 384else drag from p to 512,item 2 of pif the mouseclick then exit peindreend repeatend repeatelse if x = 7thenset pattern to 1put "1 2 3 4 6 8" into eplput "true false" into centput "11 12 14 15 17" into outrepeatplay stopplay merput "+ -" into sigrepeat with b = 1 to 5if b > 1 then suiteget char (the number of chars of the long time)-1 to the number of chars of the long time of the long timeif "00" is in it or "30" is in itthenplay stopplay merend ifrepeat 10put random (512)*4 & "," & random (342)*2 into bouif random (2) = 2 then put word 2 of sig before item 2 of bouif random (2) = 1 then put "commandkey,optionkey" into autrelse put "shiftkey,optionkey" into autrchoose tool word random (5) of outset the dragspeed to 40 + random (800)set the multispace to random (20)set the centered to word random (2) of centset linesize to word random (6) of eplset the polysides to random (49)set the multiple to trueput random (512) & "," & random (342) into pclick at pput the seconds into sabdrag from p to bou with autrif the mouseclick then exit peindreend repeatend repeatdomenu "revert"end repeatelse if x = 8thenchoose brush toolput "1 5 9 13 17 25 29 31" into laqput "dr ga" into dirset the filled to truerepeatplay stopplay merrepeat with b = 1 to 40if b = 4 or last char of b = 0 then suiteget char (the number of chars of the long time)-1 to the number of chars of the long time of the long timeif "00" is in it or "30" is in itthenplay stopplay merend ifset pattern to random (40)set the dragspeed to 40 + random (800)set the brush to word random (8) of laqput random (512) & "," & random (384) into pput random (512) into aput random (384) into bclick at pif random (2) = 1thendrag from p to item 1 of p + a, item 2 of p + belsedrag from p to item 1 of p - a, item 2 of p + bend ifif the mouseclick then exit peindreend repeatdomenu revertend repeatend ifend peindreon suitelock screencol rect of btn 5show btn 5unlock screenend suite</script>